program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.
Различные качество и скорость запоминания и обработки информации у каждого семиклассника.
Для этого вам стоит воспользоватся сортировкой <span>"пузырьком" и отсортировать ваш массив
</span>
Var a,b,c,d,x,y: longint;
function NOD(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOK:=a*b div NOD(a,b)
end;
Begin
Read(a,b,c,d);
x:=NOK(a,b);
y:=NOK(c,d);
Writeln(NOK(x,y));
end.