Составить программу для вычесления у=4х/12b+10

Без шага!

uses crt;
var
y,x,b: real;
begin
clrscr;
read (x,b);
y:=4*x/(12*b)+10;
writeln ('y=',y);
readln ();
end.