Занятие 3. Операторы условия If и Case

Изучение работы операторов услович If и Case

Программа 1: Демонстрация работы оператора If

var

   a,b: integer;

begin

     writeln('Введите число a:');

     readln(a);

     writeln('Введите число b:');

     readln(b);

     if(a>b) then

         writeln('a больше b');

     if(a<b) then

         writeln('a меньше b');

     if(a=b) then

         writeln('a равно b');

end.

Программа 2: Демонстрация работы оператора Case

Var

   x: integer;

Begin

    writeln('Введите номер месяца (от 1 до 12)');

    read(x);

    Case x of

       1, 2, 12: writeln('Зима');

       3..5: Writeln('Весна');

       6..8: Writeln('Лето');

       9..11: Writeln('Осень');

       else

           writeln('Данные не корректны.');

    end;

End.