вопрос по pascal abc. уравнение.

Question

решить вот эту систему уравнений с помощью pascal abc 
 
 5x (в квадрате) x<0 
t= 
 x+15. x> либо = 0

Samvel Atayants · Accepted Answer

var x,t:real; 
begin 
writeln('Введите x'); 
readln(x); 
if x<0 then t:=5x*5x 
elses t:=x+15; 
writeln(t); 
end.

Кирилл Самойлов · Answer

Program z; 
uses 
 crt; 
var x,t:real; 
begin 
 clrscr; 
 write('x= '); 
 readln(x); 
 if x<0 then 
 t:=5*x*x; 
 if x>=0 then 
 t:=x+15; 
 writeln (t:0:2); 
 readln; 
end.