Переведите на русский, varx, y, b: integer;beginwrite ('y = x*b ');readln (x);if x > 0 theny := y * belseif x = 0 theny := 0elsey := abs(x);writeln ('y = ', y = x*b);end.

Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных

begin // начало программы 
write ('y = x*b ');  
read(x,b);      // ввод переменной x,b


if x > 0   // проверка, х больше от 0?
then   
y := y * b       // если да, то исполняется это
else               
if x = 0 then   //если нет, то это(тут опять же проверка, х равно 0?)
y := 0             // если да то "y" присваивается 0
else
y := abs(x);    // если нет то "y" присваивается значение модуль "х"

writeln ('y = ', y);  // выводятся значения,

end. // завершение программы

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