program task2;
var
x, z: integer;
begin
read(x);
if (x > 20) then
z := 10 * x
else
z := x + 15;
write(z);
end.
Объяснение:
program task2; // Название программы
var
x, z: integer; // Целочисленные переменные x, z
begin // Начало программы
read(x); // Считываем x с клавиатуры
if (x > 20) then // Если значение переменной x > 20
z := 10 * x // z = 10 × x
else // Иначе
z := x + 15; // z = x + 15
write(z); // Выводим z
end. // Конец программы
