Написать программу, которая при вводе числа в см выдает количество полных метров. (на языке паскаль)

program meters;

 var cm:integer;

begin;

 readln(cm);

 writeln(cm div 100);

end.

program a_2;

var i,k:integer;

l:real;

begin

write('Введите длину в см:');

read(i);

l:=i/100;

k:=int(l);

writeln('Искомая длина в метрах:',k)

end.