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

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.

Если я понял о чем ты, то вот:

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. / / завершение программы