A = 5 т.к чтобы получить 3 не должны выполняться a<5 и a>5
Б это Paint, это программа создающая растровые попиксельные рисунки
Затем вы стираете весь текст, выключаете капс лок, и начинаете с начала?
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.