я вот так сделала, но на жирном месте не проходит
writeln('m= ');
readln(m1);
val(m1,m,code);
if code<>0
then begin
writeln('OSHIBKA! Vvod nedopystimogo znacheniya!');
writeln('VIXOD IZ PROGRAMMI!!!');
READLN;
halt;
end;
readln(m);
writeln('n= ');
val(n1,m,code);
if code<>0
then begin
writeln('OSHIBKA! Vvod nedopystimogo znacheniya!');
writeln('VIXOD IZ PROGRAMMI!!!');
READLN;
halt;
end;
readln(n);
подскажите в чем же едло пожалуйста