Задача через паскаль АБС ввести с клавиатуры 4 числа если 1 и 2 оканчивается на 5, то увеличить каждое из этих чисел в 2 раза иначе уменьшить каждое из чисел на 5 если 3 и 4 число нечётные, то вычислить сумму квадратов этих чисел иначе их произведение, если 3 число попадает в интервал от 10 до 20, то увеличить это число на 7.

program zz1;

var a, b, c, d:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

write (' введите четвертое число '); / / вводим с клавиатуры четвертое число

read (d);

if (a mod 10 = 5) and (b mod 10 = 5) then begin a:=a * 2; b:=b * 2; end else begin a:=a - 5; b:=b - 5; end;

if (c mod 2 = 1) and (d mod 2 = 1) then writeln ('сумма квадратов = ', sqr (c) + sqr (d)) else writeln (' произведение 3 и 4 чисел = ', c * d);

if (c > 10) and (c < 20) then c:=c + 7;

writeln (' первое число = ', a); / / выводим ответ

writeln (' второе число = ', b);

writeln (' третье число = ', c);

writeln (' четвертое число = ', d);

end.