Подчеркните однозначно верные утверждения для данного условия и диаграммы.​

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

информация, насколько я помню

0

+1=1

+1=2

*2=4

+1=5

+1=6

*2=12

*2=24

+1=25

*2=50

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал