1.program prim;
var a,b:integer;
begin
write ('введите расстояние в сантиметрах');
readln(a);
b:=a mod 100;
writeln(b, 'метров');
readln;
end.
3.
Program Task2_2a;
uses WinCrt;
var
n, p, n1 : longint;
begin
write('Введите натуральное число '); readln(n);
n1 := 0;
while n > 0 do
begin
n1 := n1*10 + n mod 10;
n := n div 10
end;
writeln('Число, после перестановки цифр равно ', n1)
end.