Ключ: интернет
<span>Трудно в учении, легко в бою</span>
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
Там рандомные числа выходят точно чему равин s не возможно узнать
Program pr1;
Uses Crt;
Var
x,m:real;
Begin
ClrScr;
write('Введите скорость скачивания:');
readln(x);
m:=round(0.3*60*x*0.125);
writeln('Потребуется ',m,' мегабайт');
readln;
end.