Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.<span>
</span>
Часть:процессор, память, монитор
Отдельные устройства:мышь, колонки, сканер, принтер, микрофон
ВОТ ЧТО ПОЛУЧИТСЯ
begin B:=A[MAXI,J]; A[MAXI,J]:= <span>PAR(var A:ARR):</span>
Если я правильно понял вопрос, то так:
var a, b, c:int64;
begin
read(a);
read(b);
read(c);
if (a<>b) and (a<>c) and (b<>c) then write('Chisla razlichni')
else write('Chisla ne razlichni');
end.