эти задачи можно решить большим количеством способов. Выбор правильного способа может зависить от темы которую сейчас проходишь.
5.
var
a, b, c : integer;
begin
readln(a, b, c);
if a > 0 then a *= a;
if b > 0 then b *= b;
if c > 0 then c *= c;
end.
6.
var
a, b, c : integer;
begin
readln(a, b, c);
writeln(max(max(a, b), c));
end.