Составить программу вычисления произведения второй и третьей цифр целого четырёхзначного...

Program Pascal;
var a: integer;
begin
write('Введите четырёхзначное число:');
readln(a);
writeln((a mod 100),'x',(a mod 10),'=',(a mod 100)*(a mod 10));
readln()
end.

// C++
#include "stdafx.h"
#include
#include

using namespace std;

int main()
{
int a;
cout << "Введите четырёхзначное число:";<br> cin >> a;
cout << endl << (a%100) << "x" << (a%10) << "=" << (a%100)*(a%10) << endl;<br> _getch();
}