Сделать программу на Паскале. С клавиатуры вводится 15 чисел. Найти сумму всех тех чисел, которые будут больше 15.

S:=0;
for i:=0 to 14 do
begin
readln(buf);
if buf>15 then
S:=S+buf;
end;
// Нечего девушке в программисты соваться.