помогите написать программу вычисляющюю y=3x-1 в паскале. помогите написать программу вычисляющюю y=3x-1 в паскале

program poeben;
uses crt;
var
x, y: real;
begin
clrscr;
write('Введите Х = ');
readln(x);
y:=3*x-1;
writeln('Y = ', y);
readkey;
end.