Трансформация (Pascal, C++)

[spinogryz_ua]

Ребята, может ли кто нибуть написать эту програму на С++?

var q,r:real;
n:byte;
begin
writeln ('Лабораторна робота №1');
writeln;
writeln ('початкові дані');
writeln ('ввести r');
read (q);
if (r>4) then
begin q:=2.2*sqr(10)*r-sin(r); n:=2 end
else if (r<2)then
begin q:=r+cos(r)/Pi+r; n:=3 end
else
begin q:=sqr(r)+r+r+0.5; n:=1 end;
writeln ('Значення функції для аргумента ',r,' =',q:8:3,'номер формули',n:4)
end.

Заранее спасибо!!!

[reserv]

#include <iostream>
#include <math.h>
#define PI 3.14159
using namespace std;

double q,r;
char n;

int main()
{
cout<<"Лабораторна робота №1"<<endl;
cout<<"початкові дані"<<endl<<"ввести r   ";
cin>>r;
if (r>4)
{
q=2.2*10*10*r-sin(r); n=2;
}
else if (r<2)
{
q=r+cos(r)/PI+r; n=3;
}
else 
{
q=r*r+r+r+0.5; n=1;
}
cout<<"Значення функції для аргумента "<<r<<" = "<<setw(8)<<setprecision(3)<<q<<" номер формули "<<setw(4)<<n;
return 0;
}