Evaluare informatică

Răspuns:
1)
Program T;
var a,b,x,c,z:integer;
begin
readln(a,b,c,x);
z:=a*x*x+b*x*x+3*c;
writeln(z);
End.
4)
program T1;
begin
writeln(123456);
writeln(123);
writeln(123.02);
writeln('true');
end.