Question

Создать программу в паскаль для военкомата. Возраст годности от 18 до 27 лет.

Answer 1

не понятны цели программы, данно только условия... ну ладно...

Program Voenkomat;

var

age: integer;

begin

writeln("Введите ваш возраст: ");

readln(age);

if age<27 then If age>18 then writeln("ГОДЕН");

if age<18 then

writeln("вы слишком малы");

if age>27 then

writeln("Вы уже отслужили");

end.