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

[email protected] в категроии Информатика, вопрос открыт 29.11.2017 в 00:18

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.