var y,x:integer;
begin
writeln('введите значение x');
readln(x);
writeln('y= ', x*8);
end.
Объяснение:
Надеюсь то что вы просили)
