На основании выбранного варианта выполнить следующее: 1. Выполнить анализ предметной области исследуемой организации;
2. Описать основные сущности предметной области;
3. Расставить существующие связи между сущностями:
самостоятельно добавить в каждую сущность первичные ключи и
установить внешние ключи между сущностями;
4. Построить инфологическую модель базы данных организации;
5. Построить даталогическую модель базы данных организации.
БД – информационная система военного округа. БД состоит из
следующих таблиц: места дислокации, вид войск, части, роты,
личный состав.
Таблица вид войск имеет следующие атрибуты: название.
Таблица места дислокации имеет следующие атрибуты: страна,
город, адрес, занимаемая площадь.
Таблица части имеет следующие атрибуты: номер части, место

program vt;

type toy = record     // тип игрушка

      name : string;   // название

      price : integer;     // стоимость

      age : integer;         // возрастные границы

      a: boolean;

end;

var

    f : text; // переменая для работы с файлом

    i : integer; // счетчик

    size : integer;   // кол. игрушек

    maxage : integer; // макс. возрастная граница

    maxprice : integer;     // макс цена игрушки

    mas : array [1..100] of toy;   // контейнер игрушек

begin

      assign(f, 'input.txt');   // связываем переменную с файлом

      reset(f);               // открываем файл на чтение

      i : = 1;                 // 1 игрушка

      maxprice : = 400;         // макс цена = 400

      maxage: =5;                 //макс. возрастная граница = 5

      while (not eof(f)) do   // пока не дошли до конца файла

      begin

          readln(f, mas[i].name);     // считываем данные об игрушке

          readln(f, mas[i].price);

          readln(f, mas[i].age);

          maxage > mas[i].age;   //найти все до 5 лет

          writeln

      end;

end.

ответ: у тебя не правильное .в начале нужно найти максимальное число не оканч.на 3 , а потом вывести макс. число оканчивающееся на 3.ты разберись. но если ты шаришь в икт и просто не знаешь , как задать условие ,то там нужно через целые и кратные (div/mod) в твоем случае будет как-то так

if a mod 10=3 and a> max then max: =a

ну если ты ленивая жо#а то вот:

var a,b,k,max: integer;

begin

writeln('введите количество чисел > > n ');

readln(n);

max: =0;

for k: = 1 to n do;

begin

writeln('введите числа > > a ');

readln(a);

if (a mod 10=3) and (a> max) then max: =a

end;

writeln('самое больше число оканчивающееся на 3 -',max)

end.

в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором