program CalculateY;varx, y: integer;beginwrite('Enter a value for x: ');readln(x);
y := 5 * x - 8;
writeln('The value of y is: ', y);end.
program CalculateY;
var
x, y: integer;
begin
write('Enter a value for x: ');
readln(x);
y := 5 * x - 8;
writeln('The value of y is: ', y);
end.