Известны данные о численности населения (в млн. жителей) и площади (в тыс. км2 ) 28 государств. Определить общую численность населения в «маленьких» государствах (чья площадь не превышает Р тыс. км2 ) — Pascal(Паскаль)

uses crt;
type
mass= array [1..28] of integer;
var
plos,nasel:mass;
i,obsch,p: integer;
begin
readln(p);
for i:=1 to 28 do
begin
writeln('население',i,'-ой страны равно');
readln(nasel[i]);
writeln('площадь',i,'-ой страны равно');
readln(plos[i]);
end;
obsch:=0;
for i:=1 to 28 do
begin
if plos[i] < p then obsch:=obsch+nasel[i];
end;
writeln('ответ по условию равен ',obsch);
end.