ребята помогите пожалуста,немогу написать програмку:( Организовать в диалоговом режиме ввод входящих данных,проверку их достоверности и изменения для параметров:
а) диаметр барабана, мм 500<=d<=2000,кратных 10
б) Ширена барабана, мм от 100 до 300
в) количество барабанов 1, 2 или 3
Вот что я тока смог написать, а дальше незнаю как,помогите кто может:
PROGRAM PR40;
USES CRT;
const x1=500;
const x2=2000;
LABEL 2;
VAR X:REAL; C:CHAR;
BEGIN CLRSCR;
2: TEXTCOLOR(14);
WRITE(' vvedite diametr barabana X => '); READLN(X);
IF (X>=X1) AND (X<=X2) THEN
WRITELN(' parametr X=',X:6:2,' vvdeniy pravilno')
ELSE BEGIN
WRITELN('znachenie X=',X:6:2,' ne vhodit v diapazon ot', X1,' do ',X2);
TEXTCOLOR(4);
WRITELN(' povtorite vvod '); GOTO 2 END;
C:=READKEY
END.
