прошууу помогите плиииз 2 и 3

фотка гадость, что конкретно делать не понятно

составить программу ко 2 и 3 заданию

2) var a:integer;

begin

readln (a);

if (a mod 2=0) then writeln(sqr(a)) else writeln (a);

end.

3) var a,b,c:integer;

begin

readln (a,b,c);

if (agt;0) then writeln (sqr(a)) else writeln (a);

if (bgt;0) then writeln (sqr(b)) else writeln (b);

if (cgt;0) then writeln (sqr(c)) else writeln (c);

end.