Напишите фрагмент алгоритма с ветвлением,который реализовывал бы следующую : если значение х будет такое же или меньше 15,то его необходимо увеличить в 3 раза,в противном случае в 3 раза надо увеличить y. полное решение как в паскале

Program zadacha;
  var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
  begin
   z:=x*3;
  end else
  begin 
   z:=y*3;
  end;
write (z);
end.