Object Pascal, Turbo Pascal, Borland Pascal!
program forum;
type
Real=TIo[12..19];
var
a:TIo;
const
d=15;
e=17;
begin
Write('A= ');
Readln(a);
a:=Sqrt(d + e);
Writeln(ttttttttt,a,Press Enter to exit);
Readln;
end.