Дано двузначное число. Определить, равен ли квадрат этого числа сумме квадратов его цифр - Pascal ABC

1.

var a:longint;

begin

read (A) ;

if (a mod 10) = (a div 10) then writeln ('цифры одинаковы') ;

if (a mod 10) > (a div 10) then writeln ('вторая цифра больше') ;

if (a div 10) > (a mod 10) then writeln ('первая цифра больше') ;

end.

2.

var a, b, c:longint;

begin

read (A) ;

b:=a mod 10;

c:=a div 10;

b:=b*b*b;

c:=c*c*c;

d:=4 * (b+c) ;

if sqr (A) = d then writeln (' квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln (' квадрат этого числа не равен учетверённой сумме кубов его цифр') ;

end.

3.

var a, b, c, d:longint;

begin

read (A) ;

b:=a mod 10;

c:=a div 10;

d:=c+b;

if d mod 3=0 then writeln ('сумма цифр данного числа кратна 3') else writeln ('сумма цифр этого числа не кратна 3') ;

if d mod 4=0 then writeln ('сумма цифр данного числа кратна 4') else writeln ('сумма цифр этого числа не кратна 4') ;

end.

4.

var a, b, c, d, e:longint;

begin

read (A) ;

b:=a mod 10;

c: = (a mod 100) div 10;

d:=a div 100;

b:=b*b*b;

c:=c*c*c;

d:=d*d*d;

e:=b+c+d;

if sqr (A) = e then writeln ('квадрат этого числа равен сумме кубов его цифр.') else writeln ('квадрат этого числа не равен сумме кубов его цифр.') ;

end.

5.

var a, b, c, d:longint;

begin

read (b, a) ;

c:=b mod 10;

d:=b div 10;

if (c=3) or (d=3) then writeln ('в запись этого числа входит цифра 3') else writeln ('в запись этого числа не входит цифра 3') ;

if (c=a) or (d=a) then writeln ('в запись этого числа входит цифра ', a') else writeln ('в запись этого числа не входит цифра ', a) ;

end.