Ναι, ξέρω... απλά δεν την έχουν διδαχθεί ακόμη.
program Askisi;
uses wincrt;
var arithmos, athroisma:real; erwthsh:char;
begin
athroisma:=0;
erwthsh:="y";
while erwthsh="y"
writeln("Dwse enan arithmo");
readln(arithmos);
athroisma:=athroisma+arithmos;
writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");
readln(erwthsh);
end;
writeln("To athroisma ton arithmwn einai:", athroisma);
end.
Έτσι πρέπει να συντάσσεται...
*Και αρχικοποίηση του athroisma.