Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
var
year:integer;
begin
writeln('Введите год');
readln(year);
if (year > 2000) and (year < 2101) then
writeln('Этот год относится к XXI веку') else
writeln('Этот год не относится к XXI веку');
end.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const n = 10;
begin
var a:=ArrRandom(n,-10,10);
a.Println;
var b:=ArrRandom(n,-10,10);
b.Println;
var c:array[0..n-1] of integer;
for var i:=0 to 9 do c[i]:=a[i]+b[i];
c.println;
end.