Переведите на русский,

var
x, y, b: integer;

begin
write ('y = x*b ');
readln (x);

if x > 0 then
y := y * b
else
if x = 0 then
y := 0
else
y := abs(x);

writeln ('y = ', y = x*b);

end.

Поставишь отметку лучший ответ? :3

да, но как? ))

Там под ответом написано сделать лучшим

Спасибо за БС

Не нашёл что-то

Если я понял о чем ты, то вот:varx, y, b: integer; // описание переменныхbegin // начало программы write ('y = x*b ');  read(x,b);      // ввод переменной x,bif x > 0   // проверка, х больше от 0?then   y := y * b       // если да, то исполняется этоelse               if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)y := 0             // если да то "y" присваивается 0elsey := abs(x);    // если нет то "y" присваивается значение модуль "х"writeln ('y = ', y);  // выводятся значения,end. // завершение программы