Запишите название особого вида романов, в которых изображается жизнь и деятельность личностей, оказавшихся по каким-либо причинам вне общества

На основании анализа приведенного литературного произведения можно сформулировать ответ: Робинзонада

var n, m, a, b, c, d, e, f, g:integer;
Function Nod (m, n: integer): integer;
Begin
    While m<>n do
       If m>n then m:=m-n
                   Else n:=n-m;
       Nod:=m
End;
Begin
     Write('Ведите числители и знаменатели дробей: ');
     Read(a,b,c,d);
     e:=a*d;
     f:=b*c;
     if e=0 then writeln(e)
        else
            begin
                 g := nod(abs(e),abs(f));
                 e := e div g;
                 f:= f div  g;
                 writeln(e,'/',f);
            end;
end.

program p7;
var n,k:integer;
 
procedure vvod;
begin
writeln ('vvedite chetnoe chislo, bolshe dvyh: ');
readln (n);
if n <=2 then writeln ('vvedeno chislo menshe dvyh ');
if (n mod 2)<>0 then writeln ('vvedeno nechetnoe chislo! ')
end;
 
function proverka (pch:longint):boolean;
var i:longint;
begin
for i:=2 to trunc (sqrt(pch)) do
if n mod i=0 then
begin
proverka:=false;
exit;
end;
proverka:=true;
end;
begin
vvod;
for k:=1 to n div 2 do
if proverka(k) and proverka(n-k) then writeln (n,'=',k, '+',n-k);
readln;
end