Закажите билет на авиарейс. Киев – в одном направлении 500гр, в двух направлениях -750гр. Харьков - в одном направлении 400гр, в двух
направлениях -600гр. Донецк - в одном направлении 350гр, в двух направлениях -550гр. Львов - в одном направлении 600гр, в двух направлениях - 900гр. Если билет заказывается за 45 суток – скидка 20%, за 20
суток – скидка 10%. Определить стоимость заказа
n, i, prev: integer;
function IsSimpleNumber(n: integer): boolean;
var
i: integer;
begin
IsSimpleNumber := true;
for i := 2 to round(sqrt(n) + 1) do
if n mod i = 0 then begin
IsSimpleNumber := false;
exit;
end;
end;
begin
read(n);
prev := 0;
for i := n to 2 * n do
if IsSimpleNumber(i) then
if prev = 0 then
prev := i
else if i - prev = 2 then begin
writeln(i, ', ', prev, ' - близнецы');
halt;
end
else prev := i;
writeln('Близнецов нет');
end.