Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
ЭКРАН.................................................
2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.