Неприлично давать задания с ошибкой.
В слове ПРОГРАММИРОВАНИЕ две буквы М и должно было получиться
ИНАВОРИ<u>М</u>ГОРПРАМЕ.
Var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.
По идее так, не проверял.
1 Олег, 2 Юра, 3 Володя, 4 Миша, 5 Саша
Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.