эти задачи можно решить большим количеством способов. Выбор правильного способа может зависить от темы которую сейчас проходишь.

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.