Program vergi;
uses wincrt;
var
maas:longint;
iade:real;
begin
write('emekli maasiniz............:');
readln(maas);
if maas<800 then iade:=(maas*0.1);
if (maas>=800) and (maas<1200) then iade:=(maas*0.2);
if (maas=1500) then iade:=(maas*0.05);
writeln('vergi tutariniz......:',iade:10:2);
readln;
end.