Program pr;
uses crt;
Var a,b,c,d:real;
Begin
Writeln('vv 4 chisla');
readln(a);
readln(b);
readln(c);
readln(d);
if (a=999) or (b=999) or (c=999) or (d=999) then Writeln('a=',a,' b=',b,' c=',c,' d=',d)
else Writeln('sum=',c+d);
readln;
end.
<span>111010+11101=</span>1010111 - считать можно в обычном калькуляторе Windows,если не знаете как это делается "головой".
CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
IF b = 0 THEN
PRINT "Resheniy beskonechno"
ELSE
PRINT "Resheniy net"
END IF
ELSE
PRINT "x="; b / a
END IF
END