<span>var x,y:real;
begin
write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x
else y:=1/(x*x);
write('y=',y:0:2);
readln
end.
</span>
uses crt;
var ch,a:integer;
begin
readln(ch);
readln(A);
if ((ch div 10)+( ch mod 10)) mod a = 0 then
writeln('YES') else writeln('NO');
readln;
end.
2.
uses crt;
var i,os:integer;
a:array[1..31] of integer;
begin
randomize;
os:=0;
for i:=1 to 31 do
begin
a[i]:=random(5)+0;
if a[i]=0 then inc(os);
end;
for i:=1 to 31 do
write(a[i],' ');
writeln;
if os = 10 then
writeln('YES') else writeln('NO');
readln;
end.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 12);
var x:=ReadInteger('x =');
a.Where(t -> t > x).Println();
end.
Для создания рекламы приглашений и т.д