Укажите правильный порядок следования информации между объектами при передаче.​

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

один, два, три, четыре, пять

12345

program zadacha1; var ves, rost, optves: integer; begin  write('введите массу тела');   read(ves);   write('введите рост в см');   read(rost);   optves: =rost-100;   if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) );   if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) );   if ves=optves then write ('ваш вес оптимальный')end.

a: =a+b; (новое а после присвоения будет равно 6, b будет равно 4)

b: =a-b (новое b после присвоения будет равно 2, a будет равно 6)

a: =a-b (новое a после присвоения будет равно 4, b будет равно 2)