Помогите с информатикой

var i,a: integer;
begin
write('Введите число - '); readln(a);
if a > 15 then for i := 1 to 3 do writeln('Попугай')
else for i :=1 to 10 do writeln('Столешница');
readln;
end.