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

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