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

Program1;Vary,x:real;Writeln('vedi x');readln(x);y=3x-8;writeln ('y=');readln;End.Возможно это правильно