Помогите, пожалуйста, с информатикой, паскаль

 Program P4; 

uses crt; 

var i: integer; 

    x: real; 

begin 

clrscr; 

for i:=2 to 5 do begin 

x:=x+1/i; 

end; 

writeln ('x=', x); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 Program P5; 

uses crt; 

var d: integer; 

begin 

clrscr; 

write ('Введите номер дня недели (цифру) после чего нажмите клавишу Enter: '); 

readln (d); 

if (d7) then writeln ('Ошибка: введен некорректный номер дня.') else 

if (d=6) or (d=7) then writeln ('Это - выходной день.') else writeln ('Это - рабочий день.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 program WorkingDayOrDayOff; 

 

var 

  d: integer; 

 

begin 

  writeln('Enter the day of the week (1-7):'); 

  readln(d); 

 

  if (d = 6) or (d = 7) then 

    writeln('Day off') 

  else 

    writeln('Working day'); 

end.