безотлагательно хелп очень прошу!!!!!!!!!

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

5.

var

   a, b, c : integer;

begin

   readln(a, b, c);

   if a gt; 0 then a *= a;

   if b gt; 0 then b *= b;

   if c gt; 0 then c *= c;

end.

6.

var

   a, b, c : integer;

begin

   readln(a, b, c);

   writeln(max(max(a, b), c));

end.