ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!Обусловьте итог работы программки, написанной на языке

ПОМОГИТЕ, ПОЖАЛУЙСТА!!!!!
Обусловьте результат работы программы, написанной на языке Паскаль.
1. S(a) = 6a*a
программка:
var a:real;
begin
readln(a);
writeln(6*a*a);
end.

2. var a,b,c: integer;
begin
for a : = 1 to 4 do
begin
readln ( b) ;
if b gt; c then c:=b;
end.

3. var
a,b,c,ans:integer;
begin
readln(a,b,c);
ans := 0;
if (agt;0) then inc(ans);
if (bgt;0) then inc(ans);
if (cgt;0) then inc(ans);
writeln(ans);
readln;
end.