Код программы:
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.
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.