Составить программу вычисления значения функции y=3x-8

Program1;
Var
y,x:real;
Writeln('vedi x');
readln(x);
y=3x-8;
writeln ('y=');
readln;
End.

Возможно это правильно