[gokhanaygun]

şöle bişi cevabın

uses crt;
var
a:longint;
b:byte;
begin
a:=0;
for b:=1 to 100 do
a:=a+b*b;
clrscr;
gotoxy(12,5);
writeln(a);
readln;
end.

ayrıca biliyosun muhtemelen gotoxy ve clrscr; ekran için istersen kullanmayabilirsin..

kolay gelsin arkdaşım..