нужно решить а то отчислят , заранее

1. начало(в овале)

ввод a,b,min (в паралелограмме)

a<b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b

вторая стрелка "да" и в прямоугольнике min:=a

вывод min (в паралелограмме)

конец(в овале)

2.начало(в овале)

ввод a,b, c, min (в паралелограмме)

a<b (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b

вторая стрелка "да" и в прямоугольнике min:=a

min<c (в ромбе)

2 стрелки, первая стрелка "нет" и в прямоугольнике min:=c

вторая стрелка сразу к выводу

вывод min (в паралелограмме)

конец(в овале)

program z1;

var k:integer;

begin

writeln('введите класс ');readln(k);

if k=1 then ('Привет,первоклассник');

 if k=2 then ('Привет,второклассник'); 

 if k=3 then ('Привет,третеклассник'); 

 if k=4 then ('Привет,четвероклассник'); 

 if k=5 then ('Привет,пятиклассник'); 

 if k=6 then ('Привет,шестиклассник'); 

 if k=7 then ('Привет,семиклассник'); 

 if k=8 then ('Привет,восьмиклассник'); 

 if k=9 then ('Привет,девятиклассник');

 if k=10 then ('Привет,десятиклассник'); 

 if k=11 then ('Привет,одинадцатиклассник'); 

end.