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

Большое спасибо!)

пожалуйста

// PascalABC.Netvar  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.Netvar  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.