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