1. с клавиатуры вводятся 2 числа. если первое число больше 5, то уменьшить второе число в 2 раза. (записать комментарий в каждой строке программы) 2. среди трех введенных целых чисел найти количество положительных.

1.var a: integer; {объявление переменных}           b: real; begin{начало   тела программы} write('введите два числа =>   '); {вывод сообщения пользователю} readln(a,b); {ввод данных пользователем} if (a> 5) then {сравнение первого введённого числа с 5} b: =b/2; {если а> 5 b приравниваем к b делённое на 2} writeln(b); {выводим b} end.{конец тела программы} 2.var a,b,c,d: integer; {объявление переменных} begin{начало тела программы} write('введите три числа  (через пробел) =>   '); {вывод информации пользователю} read(a,b,c); {ввод инф. пользователем} if (a> =0) then d: =d+1; {если а положительное число счётчик +1} if (b> =0) then d: =d+1; {тоже самое что с верху} if (c> =0) then d: =d+1; {тоже самое что с верху} writeln('количество положительных чисел  ',d); {вывод информации} end.{конец тела программы}

ответ:var

a:string;

i,k:integer;

begin

  readln(a);

      for i:=1 to length(a) do

           if a[i]=':'then

              begin

                 a[i]:=';';

                 k:=k+1;

               end;

writeln(k);

end.