Question

40баллов!!!!!!

напишите эту задаче на языке Paskal. (решение )

Answer 1

var  a, s: double;
begin
  readln(a);
  s += 50 * a;
  writeln('50 по ', s, 'p.');
  s += (200 - 50) * (a + a / 100 * 20);
  writeln('Остальные по ', (200 - 50) * (a + a / 100 * 20), 'p.', #13, s, 'р. всего');
end.