Задача 8 Урок 14.1

Задача 8 Урок 14.1:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- для вывода очередной строки используйте процедуру.

var a,b,c:integer;
procedure podprogsum(q,w,e:integer);

begin
  if (q=w) and (w=e) then
    writeln('chisla ravni ');
  if (q=w) and (e<w) then
    writeln('ne opredelit ');
  if (q<w) and (w=e) then
    writeln('ne opredelit ');
  if (q=e) and (w<e) then
    writeln('ne opredelit ')
  else
    if (q>w) and (q>e) then
      writeln('a bolshe - ',q);
    if (w>q) and (w>e) then
      writeln('b bolshe - ',w);
    if (e>q) and (e>w) then
      writeln('c bolshe - ',e);
  readln();
end;
begin
   writeln('vvedite a');
   readln(a);
   writeln('vvedite b');
   readln(b);
   writeln('vvedite c');
   readln(c);
   podprogsum (a,b,c);
end. 

Вывод консоли:

vvedite a
10
vvedite b
20
vvedite c
30
c bolshe - 30