P AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SPAM
SAM
AM
AMP
AMSP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AMSP
ASP
SP
SPM
SPAM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SP AM
SPAM
SAM
AM
AMP
AMSP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AM SP
AMSP
ASP
SP
SPM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
SPAM
Must Waste More Time...
Код программы:
var a:integer;
begin
write('Введите возраст автовладельца: ');
readln(a);
if (a > 40) then begin
writeln('Выберите место эксплуатации:');
writeln('1. Город');
writeln('2. Сельская местность');
readln(a);
if (a = 1) then begin
write('Введите стаж: ');
readln(a);
if (a > 10) then
writeln('Страховать')
else
writeln('Не страховать')
end
else
writeln('Страховать')
end
else begin
writeln('Езда без аварий?');
writeln('1. Да');
writeln('2. Нет');
readln(a);
if (a = 1) then
writeln('Страховать')
else begin
writeln('Выберите тип автомобиля:');
writeln('1. Минивэн');
writeln('2. Спорткар');
readln(a);
if (a = 1) then
writeln('Страховать')
else
writeln('Не страховать')
end;
end;
end.