program raf105;
var kid: integer;
begin
write('Введите количество детей в семье: ');
readln(kid);
if kid >= 3
then writeln('Семья многодетная')
else writeln('Семья обычная');
end.
program raf105;
var kid: integer;
begin
write('Введите количество детей в семье: ');
readln(kid);
if kid >= 3
then writeln('Семья многодетная')
else writeln('Семья обычная');
end.
PascalABC 3.4.2