Решить по информатике (на уровне знаний 7 класса) с pascalabc 1. дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз. 2. дано 4 значное число поменять местами 1 и 2 цифру местами 3. дан диаметр круга найти его площадь (формула s=п*r). я примерно знаю как писать но всеровно в мои мысли: program z1; uses crt; var : integer; begin дальше всё в тумане буду рад за решённые 1 или 2
uses crt;
Var a, b, max, m, x: integer;
Begin
Write('введите а и б');
read(a,b);
if a>b then max:=a and m:=b
else max:=b and m:=a;
x:=max-m;
writeln('модель суммы=', x);
end.