Как мне сделать так, чтобы можно было в proc3 и proc 4 узнать ввёл пользователь данные или нет. Если данные не введены, то вывести "введите данные".program k3; uses crt; var n:byte; s, d:real; a, b:real; m:smallint; procedure proc1 (var a:real; b:real); begin writeln ('vvedite nizhnuu graniczu intervala'); readln (a); writeln ('vvedite verhnuu graniczu intervala'); readln (b); end; procedure proc2 (var m:smallint); begin writeln ('vvidite chislo razbienii'); readln (m); end; procedure proc3 (var s:real); var i:integer; h, x:real; begin writeln ('vi ne vveli granicy intervala i chislo razbienii'); proc1 (a, b); proc2 (m); h:=(b-a)/m; x:=a+h/2; for i:=1 to m do begin s:=s+(2*x*x*x+(-2)*x*x+3*x-11); x:=x+h; end; s:=s*h; writeln ('s= ', s); readln (); end; procedure proc4 (var d:real); var p:real; begin proc3 (s); p:=(2*((b*b*b*b)/4)+(-2)*((b*b*b)/3)+3*(b*b)/2-11*b)-(2*((a*a*a*a)/4)+(-2)*((a*a*a)/3)+3*(a*a)/2-11*a); d:=(p-s)/p; writeln ('d= ', d); readln (); end; begin repeat clrscr; writeln ('granicy intervala - 1'); writeln ('chislo razbienii - 2'); writeln ('integeral - 3'); writeln ('pogreshnost - 4'); writeln ('exit - 0'); write ('select program: '); readln (n); case n of 1:proc1 (a, b); 2:proc2 (m); 3:proc3 (s); 4:proc4 (d); end; until n=0; readln (); end.​