ввести число ...если оно больше 8 поделить его на 4, если

program zz1;

var x, y:real; // задаем переменные не целого типа

begin

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

read(x);  

if x gt; 8 // проверяем, если введенное число больше восьми, то

then y:=x / 4  // высчитываем у, разделив исходное число на четыре

else y:=x * 5;  // иначе, высчитываем у, умножив начальное число на 5

write( Приобретенный ответ = , y:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки

end.