Переведите с С++ на Pascal

#include
using namespace std;
void func ()
{
float a, b;
cout << "a=";
cin >> a;
cout << "b=";
cin >> b;
cout << a*b << endl;
}
int main ()
{
func ();
system ("PAUSE");
return 0;
}

В сущности как-то так:

procedure func;

 var a,b: real;

begin

 write('a=');

 readln(a);

 write('b=');

 readln(b);

 writeln(a*b);

end;

begin

 func;

end.

700 иероглифов было в древнем письме

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год