Program b1; // отмеченные // писать не надо/
var a: string; // строковая переменная//
i: integer; // для цикла for//
n: integer; // кол-во раз//
begin // начало программы//
n:=4; //кол-во раз(в данном случае 4)//
a:='this is a text'; //текст//
for i:=1 to n do //цикл с 1 до n//
writeln(a); // вывод текста с каждой новой строки, если надо все в одну строку, то используем write(a);//
end. //конец//
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end<span>.</span>
1). По назначению (гражданскому или военному): грузовые, легковые, повышенной проходимости, автобусы, спортивные, бронированные, амфибии, самосвалы и т.п.
2). По типу двигателя: бензиновые, газовые, газогенераторные, дизельные, водородные, электромобили.
3). По конструкции: праворульные и леворульные, с ручной или автоматической коробкой передач.
4) По типу кузова: седан, универсал, хэтчбэк, купе, лимузин и т.д.
Все перечисленные множества являются подмножествами множества автомобилей.
