C++ :

//hhh
#include <iostream>
#include <cstdio>
using namespace std;

int main(){
    float a,p;
    cin>>a;
    if(a<=10)p=2*a;
    if(a>10)p=1.8*a;
    printf("%0.1f\n",p);
	return 0;
} 

Pascal :

var
a:integer;
s,d:real;
begin
read(a);
if a<=10 then
begin
s:=2*a;
write(s:0:1);
end
else
begin
d:=a*2*0.9;
write(d:0:1);
end; 
end.