Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...
Var a,b:integer;
c:real;
begin
readln(a,b);
if ((a+b) mod 2 = 0) then c:= a*b
else c:= a/b;
writeln(c);
readln();
<span>end. </span>
Если масштаб на компе изменился- не беда нажми ctrl+0
Люди, раз уж выкладываете задания по программированию, то пожалуйста пишите желательный язык а то хрен вас пойми(это же программирование, а не предмет "Вангование") то ли вам Pascal, то ли вам С++ или же чего другого...
Ну да ладно.
Вот тебе на С++:
#include <iostream>
using namespace std;
int main()
int n;
cin>>n;
if(n%2==0)
{
cout<<n*2<<" chetnoe chislo";
}
else if(n%2!=0)
{
cout<<n*3<<" ne chetnoe chislo";
}
return 0;
}
Сумма - a+b,
произведение - ab