Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
<u><em>Тестовое решение</em></u>
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
Var
a:longint;
begin
readln(a);
writeln(a×a×a);
end;
Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.