прям В программе «Пятый день» есть ошибки
day - input ("как называется 5й день недели?")
if day == "friday" or d == "friday"
print "верно"
else:
print ( "Неверно")

c) Нарисуйте блок-схему алгоритма.
d) Найдите ошибки и запишите правильно программу

program n_1;

uses crt;

var

 n: longint;

 k: integer;

function Sym(n: integer): char;

begin

 case n of

   0..9: Sym := chr(48 + n);  

   10..36: Sym := chr(55 + n);  

 end;

end;

function funct(n: longint; k: integer): string;

var

 st: string;

begin

 st := '';

 if n = 0 then st := '0' else

 begin

   while n >= 1 do

   begin

     st := Sym(n mod k) + st;

     n := n div k;

   end;

 end;

 DecToX := st;

end;

begin

 readln(n);

 repeat

   readln(k);

 until (2 <= k) and (k <= 36);

 writeln(funct(n, k));

end.

в том виде как есть ничего не делает. После исправления ошибок, принимает следующий вид:

program p2;

var

   d, e, f, g, h, i, j, k : integer;

function Sub1(x, y : integer) : integer;

begin

   if x+y = 3 then Sub1 := 3 else Sub1 := y-x;

end;

function Sub2(p, q : integer) : integer;

begin

   Sub2 := Sub1(p, q)+Sub1(q, p);

end;

begin

   g := 4; h := 7; i := 9; j := 5; k := 2; d := 1; e := 3;

   f := Sub1(g, h);

   f := Sub2(i, j);

   f := sub1(g, k);

   writeln(g, ' ', h, ' ', i, ' ', j, ' ', k, ' ', d, ' ', e, ' ', f);

end.

и на выходе печатает следующее:

4 7 9 5 2 1 3 -2