Множество первых букв русского алфавита.
Содержится всего 1 элемент: буква "А"
uses crt;
var
t1:boolean;
a, b, c: integer;
begin
readln(a, b, c);
if c*c=a*a+b*b then t1:= true else t1:= false;
writeln (t1);
readkey;
end.
Ответ 722тысяч страниц выйдет по этому запросу
Program b_1;
var a,b,i:integer;
begin
b:=20;
write('Введите любое натуральное число: ');
readln(a);
for i:=1 to 10 do
if a>b then a:=a-3 else b:= b-1;
writeln(a,b)
end.