PASCAL Из введённого 3-значного числа удалить вторую цифру и получившееся двухзначное число умножить на эту цифру.

program chislo;

var a,b:Integer;

begin

readln (a);

b:=(a div 10) mod 10;

a:=(a div 100)*10+a mod 10;

writeln (a*b);

end.

Пример работы:

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.