Var
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.
Эвристический. типа анализ кода подозрительных файлов
Begin
var a, b, c: integer;
readln(a,b);
c := 1;
if a > b then c := a / b
else c := b / a;
writeln(c);
end.
Function kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End