Программа для перевода сантиметров в метры с div и mod (паскаль).заранее !

Var a,b,c:integer;
Begin writeln('Введите длину в сантиметрах');
readln(a);
b:=a div 100;
c:=a mod 100;
writeln(a,' см = ', b, ',', c, ' м');
End.

Результат выполнения см. на рисунке