1)
var
a,b:integer;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
writeln('Сумма двух чисел=',a+b);
writeln('Разность двух чисел=',a-b);
writeln('Произведение двух чисел=',a*b);
writeln('Частное модулей=',abs(a)/abs(b):5:2);
end.
2)
var
l,m:integer;
begin
write('Введите значение L=');read(l);
m:= l div 100;
write('Полных метров=',m);
end.