Program Raspisanie_na_nedelu;
const
Question='RASPISANIE PREDMETOV NA NEDELU!!NAJMITE NA KLAVIWU<ENTER>';
Question2='Privetstvuyu vas!!! VVEDITE POJALUYSTA VAWE IMYA*****';
DEN1='ANGLIYSKIY, MATEMATIKA, FIZIKA, YAZ.PROGRAMMIROVANIYA*****';
DEN2='ISTORIYA(2 uroka), YAZ.PROGRAMMIROVANIYA*****';
DEN3='ANGLIYSKIY,USTROYSTVO PO(2 uroka)*****';
DEN4='ISTORIYA, FIZIKA*****';
DEN5='MATEMATIKA*****';
var Name:string;age:byte;num,s:real;
begin
writeln(Question);readln;
writeln(Question2);readln(name);
writeln('DOBRIY DEN,',Name,'!');
REPEAT
writeln('VVEDITE DEN NEDELI');
readln(age);
case age of
1:writeln(DEN1);
2:writeln(DEN2);
3:writeln(DEN3);
4:writeln(DEN4);
5:writeln(DEN5);
else writeln('V ETI DNI VI NE UCHETES !!!');
end;
until(s>=6) {я здесь хотел сказать что дальше 6 нельзя писать,мне нужно здесь исправление}
end.
помагите исправить программу |