с решением, написать блок схему, никак не могу решить.

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. // Конец программы