Перевидите програму на язык поскаль

3)

 if (a > b) then

 begin

   if (c > b) then

     k := 1;

 end

 else

      k := 3;

4)

 if (a < b) then

   if (c > b) then

     k := 1;

5)

if (a > b) then

 if (c > b) then

   // ... что-то делаем ...

 else

   k := 2;