Исправил
var a,b,n,i,num:integer;beginreadln(n);b:=1;i:=5;while num<n do begina:=a+i;b:=b*i;i:=i+5;inc(num);end;writeln(a,' ',b);end.
Исправил
var a,b,n,i,num:integer;
begin
readln(n);
b:=1;
i:=5;
while num<n do begin
a:=a+i;
b:=b*i;
i:=i+5;
inc(num);
end;
writeln(a,' ',b);
end.