подправьте программу!!!!!!СМОТРИТЕ ВНУТРИ

[Kolyan56577]

пОДПРАВЬТЕ ПОЖАЛУЙСТАППРОГРАММУ ТАК ЧТОБЫ ОНА РАБОТАЛА
ПО ПОРЯДКУ КАК НАДО


program p1;
uses crt;
var
f:text;
s:string;
i:integer;
Ch: Char;
BEGIN
repeat
clrscr;
WriteLn(' PROGRAMMA OBY4ENIE PEREVODY 4ISEL IZ DESIATI4NOI ');
WriteLn(' SISTEMI S4ISLENIA V DVOI4NYY,VOSMERI4NYY,SHESTCATERI4NY Y');
WriteLn(' 1. TEORIAя');
WriteLn(' 2. OPROS');
WriteLn(' 3. B6IXOg');
WriteLn(' VIBERITE NYJNII VARIANT');
ReadLn(Ch);
case ch of
'3':exit;
end;
until ch='3';
end;
procedure ReadFile(var f:text);
var s:string;
begin
assign(f,imya fajla);
reset(f);
while <> eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end;

[ex.cluz]

Что за истеричные вопли?
И почему код не оформлен по правилам форума?

[Kolyan56577]

пожалуйста

[Stilet]

Еще один кросспост о тебя - и пойдешь в баню на месяц.
Ты уже понаделал столько одинаковых тем что я неколеблясь избавлю твое присутствие от форумчан.

Всем ко желает помочь автору:http://programmersforum.ru/showthread.php?t=105069

[artemavd]

Я уже забанил этого умника.