var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.
С помощью знака $ ссылка на адрес ячейки может быть абсолютной и смешанной. Относительная ссылка знака $ не имеет.
Варианты 2 и 4 - содержат смешанную ссылку.
Вариант 3 - абсолютную.
2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Задаешь значения k и S ноль(количество и сумма) .Сделай цикл с условием, если b делить на 5 равно нолю то k равно k=+1.
Ещё такое же условие, но s=s+b
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...