Перевод кода с C++ - Pascal ABC

Формулировка задачи:

Помогите перевести код на паскаль.

#include <iostream>
#include <cmath>
int main(){
 double x;
 std::cin>>x;
 if(x>0) std::cout<<68.1*tan(x); else
 if(x<0) std::cout<<exp(x)+pow(1/5,x); else
 std::cout>>0.5;
 std::cin.get();
}

Решение задачи: «Перевод кода с C++»

Листинг программы

var x:real;
BEGIN
Readln (x);
if x>0 then Writeln (68.1*tan(x))
else if (x<0) then Writeln (exp(x)+power(0.2,x))
else Writeln ('0.5');
Readln;
END.

Объяснение кода листинга программы

Переменная x типа real
Чтение значения переменной x
Проверка условия x>0
Вычисление и вывод значения 68.1*tan(x)
Проверка условия x<0
Вычисление и вывод значения exp(x)+power(0.2,x)
Вывод значения '0.5' в случае, если условие x<=0 не выполнено