Помогите с программой для Pascal

Question

Помогите с программой для Pascal

Toxxi Знаток (291), закрыт 1 год назад

У абонента сотовой сети первые 10 минут в день стоят 0,25 у. е./мин, а далее 0,1 у. е./мин. Сколько за день потратил абонент, проговорив X минут?

Answer 1

 var X: real;

function price(x: real): real;
begin
  if (x <= 10) then price := 0.25
  else price := 0.1
else;

begin
  write('X: ');
  readln(X);
  writeln(price(X): 0: 2, ' у.е.')
end.