Составить программу для учета и обработки данных о наличии на складе автомашин, Тас нужно вывести на экран информацию о модели и года выпуска автомашин, цена которых меньше, чем 3000 усл. Ед Пусть запись содержит следующие поля: модель (marka), год выпуска (year) и цена автомобиля (price), а сами записи (в количестве хранятся в массиве а1

​

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.