Паскаль. что выдает? var k, m: integer;
dat: array[1..10] of integer;
begin
dat[1] : = 4; dat[2] : = 5;
dat[3] : = 4; dat[4] : = 3;
dat[5] : = 2; dat[6] : = 3;
dat[7] : = 4; dat[8] : = 5;
dat[9] : = 5; dat[10] : = 3;
m : = 0;
for k : = 1 to 10 do
if dat[k] < 4 then
m : = m + dat[k] ;
writeln (m) ;
end.