program ryazantsev;
var str, newstr: string;
pos,i,k:integer;
begin
newstr:='';
Writeln ('Введите строку с фамилиями');
Readln(str);
for i:=1 to Length(str) do begin
if str[i]=' ' then continue;
if (i=1) or (str[i-1]=' ') then pos:=i
else if (i=Length(str)) or (str[i+1]=' ') then begin
if LowerCase(str[i])=LowerCase(str[pos]) then k:=k+1;
if (i-pos+1) mod 2 <> 0 then newstr:=newstr+Copy(str, pos, i-pos+1)+' '
end
end;
writeln('Количество фамилий начинающихся и заканчивающихся на одну букву: ', k);
writeln('Новая строка: ', newstr)
end.
не уверена но думаю так:
var a,s : integer;
begin
s:= 0
readln (a);
while a<>0 do
begin
if(a mod 5=10) and (a mod 2=0) then
s:=s+1
readlln(a)
end
writeln(s)
end