Я пошёл в школу-истинное.Я не пошёл в школу-ложное.
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.
Что вообще ты написала ?
просто так что ли?