program name;
var
a:integer;
begin
writeln('Введите возраст человека');
readln(a);
if a>17 then writeln('Не Является')
else writeln('Является');
end.
А почему нет? Можно конечно
Program n_1
Var A: array [1..111] of {тип}
Begin
{Тело программы}
End.
Типы
Real
Integer и др.
Наглядные (картинные),модели-изображения(фотография,кино,телеизображения.абстрактные знаковые модели(печатный текст,формуляр,знаковое табло)ГРАФИЧЕСКИЕ(ГРАФИК,ДИАГРАММА,ЧЕРТЁЖ,БЛОК-СХЕМА)
1. Сам))
2. Lot is обозначает "серая мышь"
3.(1+2+3+4+5)/(10-7)=5
4. Продавец - цена
Машинист - время
Ученик - пример
5. Кабинет музыки - ноты, муз. инструменты
Кабинет Химии - колбы, кристаллы
Спорт зал - мячи, ракетки