Pascal ABC: 1. Приведите пример использования оператора условия. 2. Приведите пример...

Question

Pascal ABC:
1. Приведите пример использования оператора условия.
2. Приведите пример использования оператора цикла.
3. Приведите пример использования операторов ввода-вывода.

Answer 1

Program c2_2;
var a: integer;
begin
 write('увядіте цэлы лік');
 readln(a);
 if (a mod 2=0) then a:=a div 2;
 write (a);
 end.