Нарисуйте блок-схему!
Программу прикладываю.

В кафе мороженое подают по 3 шарика и по 5 шариков. Можно ли купить k шариков мороженого?
program icecream;
var k: integer;
begin
readln(k);
if ((k=3) or (k=5) or (k=6) or (k>7)) then
writeln ('yes')
else writeln ('no');
end.