Pascal,Цикл

[infernal110]

всем доброй ночи,помоги чем сможете я написал программу для цикла,и немогу вставить в нее запрос на повторение
вот сама программа:
var
n,i,Err:Integer;
Ch:Char;
f:Real
Begin
Repeat
{$I-}
WriteLn('Введите n');
ReadLn(n);
{$I+};
Err:IOResult;
If Err<>0 Then
Writeln('Ошибка ввода');
Until Err=0;
i:=1;
For i:=1 to n Do
begin
f:=1/Sqr(i)+1;
WrteLn('Член прогрессии #',i,'=',f:5:2);
end;
WriteLn('Хотите повторить? 1-да 2-нет');
ReadLn(Ch);
Until Ch<>'1';
end;
ReadLn;
End.

[Leshii]

Не знаю, как ты это писал, но там типичных ошибок было достаточно.
Ты хоть его компилил?)
Ну пошол по твоему принципу решения, не вникал. Когда запросит ( для повторения ) введи большую "Y". Во общем я тебе код просто, как-то к виду привёл. Ты бы хоть условие задания кинул...

Uses crt;
var
k, i, Err: Integer;
Ch: Char;
f: Real;
Begin
clrscr;
Repeat
 {$I-}
   WriteLn('Введите k');
   ReadLn(k);
 {$I+};
 Err:=IOResult;
 If Err<>0 Then
    Writeln('Ошибка ввода');
 for i:=1 to k do begin
    f:=1/Sqr(i)+1;
    WriteLn('Член прогрессии #',i,'=',f:5:2);
 end;
 WriteLn('Хотите повторить? y-да n-нет');
 ReadLn(Ch);
 Until Ch<>'Y';
ReadLn;
End.

[ИЛЬЯ17]

№1)Даны два целых числа. Найти их среднее геометрическое?
№2)Составить программу для вычисление значение функции
-1,если х<-1
y=x, если x>-1
1, если x=-1

вот помогите , блог схемы ,,, и сами программы
ПОЖАЛУЙСТА ПОМОГИТЕ ДЛЯ ЗАЧЕТА

[TinMan]

Сообщение от ИЛЬЯ17

ПОЖАЛУЙСТА ПОМОГИТЕ ДЛЯ ЗАЧЕТА

Ну, че ты постишь в чужие темы второй раз подряд??
ДА Я БУДУ РАД ЕСЛИ ТЫ ЗАВАЛИШЬ ЗАЧЕТ.
Пойдешь сортиры мыть, одним "программистом" меньше будет, и меньше будет глючного софта.. Зачем нам себе вредить??

"блог схему" ему.. жуть..