http://old.otvet.сайт-злодій/question/97693652
Не твоя однокурсниця?

Для вставки коду, потрібно використовувати тег code, який знаходиться трохи вище, при наборі повідомлення.

І ще краще, якщо ви будете вставляти ваш код під спойлер:

Тільки не перепутайте пріорітет, спочаткуй йде spoiler, а в ньому вже йде code:

зробила,а тепер допоміжь з типами

Власне, тут із цілими і треба, тільки ввід-вивід зробити в real:

program z1;
var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:integer;
    suma_r:real;
begin
  readln(suma_r);
  suma:=round(100*suma_r);{переводимо в копійки і про всяк випадок округляємо до цілого}
  Kil1 := suma div 50;
  suma := Suma mod 50;
  Kil2 := Suma div 25;
  Suma := Suma mod 25;
  Kil3 := Suma div 10;
  Suma := Suma mod 10;
  Kil4 := Suma div 5;
  Suma := Suma mod 5;
  Kil5 := Suma div 2;
  Suma := Suma mod 2;
  Kil6 := Suma div 1;
  Suma := Suma mod 1;
  kil:=kil1+kil2+kil3+kil4+kil5+kil6;
  writeln(kil/100);{переводимо назад в гривні}
  readln;
end.

Якщо вас це влаштовує, то добре. Але можна ще:

• прибрати всі змінні kilN, натомість додавати всі частки одразу до kil;

• внести номінали монет до масиву і робити це все в циклі.

І відступи наступного разу робіть обов'язково!

Пане Singularity, я, перепрошую, свині з вами не пас. А якщо вам в кожному знаку оклику вважається нервовість, то попийте краще настоянки валеріани лікарської.