Составить БЛОК-СХЕМУ к задаче: Дано двузначное число. Определить, равен ли квадрат этого числа учетверенной сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52 — отрицательный.

наверно так.

var

d1,d2,n:integer;

k,s:longint;

begin

Write('Введите натуральное двухзначное число: '); Read(n);

d1:=n div 10; d2:=n mod 10;

k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));

Write(n,': ');

if k=s then Writeln('Квадрат числа (',k,

') равен учетверенной сумме кубов его цифр')

else Writeln('Квадрат числа (',k,

') не равен учетверенной сумме кубов его цифр (',s,')')

end.