Напишите программу, подсчитывающую общее количество человек во всех 11 классах…

Program klas; uses crt; varn,p,i,r: integer; beginwriteln ('Kolichestvo 11 klassov: '); read (n); for i: =1 to n dobeginwriteln ('Vvedite kol-vo chelovek v ',i); read (p); r: =r+p; end; Writeln ('Vsego v ',n,' klassah ',r,' chelovek'); end.