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

Предыдущий
вопрос Следующий
вопрос

program task;
var
num1, num2, num3, num4: integer;
sum, result: integer;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
write('Введите третье число: ');
readln(num3);
write('Введите четвертое число: ');
readln(num4);

if (num1 mod 10 = 5) and (num2 mod 10 = 5) then
begin
num1 := num1 2;
num2 := num2 2;
end
else
begin
num1 := num1 - 5;
num2 := num2 - 5;
end;

if (num3 mod 2 <> 0) and (num4 mod 2 <> 0) then
begin
sum := sqr(num3) + sqr(num4);
end
else
begin
sum := num3 * num4;
end;

if (num3 >= 10) and (num3 <= 20) then
begin
num3 := num3 + 7;
end;

writeln('Результат: ');
writeln('Первое число:', num1);
writeln('Второе число:', num2);
writeln('Сумма квадратов третьего и четвертого чисел:', sum);
writeln('Третье число:', num3);
writeln('Четвертое число:', num4);
end.