Даны двузначное четырехзначное число. найти произведение количества десятков двузначного числа и сотен четырехзначного числа. даны пятизначное число должно быть меньше 32000 и четырехзначное числа. вычислить квадратный корень суммы сотен этих чисел.

// PascalABC.Net
var
  n2,n4,a,b:integer;
begin
  Write('Введите натуральное двухзначное число: '); Read(n2);
  Write('Введите натуральное четырехзначное число: '); Read(n4);
  a:=n2 div 10; b:=(n4 mod 100) div 10;
  Writeln(a*b)
end.

// PascalABC.Net
var
  n5,n4,a,b:integer;
begin
  Write('Введите натуральное пятизначное число: '); Read(n5);
  Write('Введите натуральное четырехзначное число: '); Read(n4);
  a:=(n5 mod 1000) div 100; b:=(n4 mod 1000) div 100;
  Writeln(sqrt(a+b))
end.