помогите пожалуйстанаписать программку в Паскале

Var
  z, x, t, k, y: real;

begin
  writeln('Цены');
  write('- торта: ');
  readln(x);
  write('- бутылки сока: ');
  readln(y);
  write('- кг яблок: ');
  readln(t);
  write('- мороженого: ');
  readln(k);
  write('Средства в кошельке: ');
  readln(z);
  writeln('...И осталось у Ванечки ', z - 2 * x - 6 * y - 3 * t, ' рублей, на которые он купил мороженку в количестве (шт.): ', trunc((z - 2 * x - 6 * y - 3 * t) / k));
end.