Дан оклад сотрудника (okl).расчитать премию (pr),которая состовояет 20% от оклада и посчитать размер зарплаты (zar),которая расчмтывается по формуле (оклад+премия-налог)где налог состовляет 13%от оклада

Var okl,pr,zar:real;
begin
writeln('Введите оклад сотрудника');
readln(okl);
pr:=okl*0.2;
zar:=okl+pr-0.13*okl;
write('Премия ',pr, ' Размер зарплаты ',zar)
end.