В Вашем варианте после while необходимо писать begin, а после Writeln - end. Но само по себе решение некрасивое.
Вот Вам еще два на выбор.
1. Без массива
var
s,n:integer;
begin
Write('Введите сумму: '); Read(s);
n:=s div 5000;
if n>0 then begin
Writeln('Банкнот "5000" всего: ',n);
s:=s mod 5000
end;
n:=s div 1000;
if n>0 then begin
Writeln('Банкнот "1000" всего: ',n);
s:=s mod 1000
end;
n:=s div 500;
if n>0 then begin
Writeln('Банкнот "500" всего: ',n);
s:=s mod 500
end;
n:=s div 100;
if n>0 then begin
Writeln('Банкнот "100" всего: ',n);
s:=s mod 100
end;
n:=s div 50;
if n>0 then begin
Writeln('Банкнот "50" всего: ',n);
s:=s mod 50
end;
n:=s div 10;
if n>0 then begin
Writeln('Банкнот "10" всего: ',n);
s:=s mod 10
end;
if s>0 then Writeln('Недоплачено: ',s)
end.
Пример:
Введите сумму: 162504
Банкнот "5000" всего: 32
Банкнот "1000" всего: 2
Банкнот "500" всего: 1
Недоплачено: 4
2. С массивом
const
k:array[1..6] of integer=(5000,1000,500,100,50,10);
var
s,n,i:integer;
begin
Write('Введите сумму: '); Read(s);
for i:=1 to 6 do begin
n:=s div k[i];
if n>0 then begin
Writeln('Банкнот "',k[i],'" всего: ',n);
s:=s mod k[i]
end
end;
if s>0 then Writeln('Недоплачено: ',s)
end.
Пример
Введите сумму: 15470
Банкнот "5000" всего: 3
Банкнот "100" всего: 4
Банкнот "50" всего: 1
Банкнот "10" всего: 2
Надсистема- устройства вывода
Струйный принтер является разновидностью принтеров.
F=((3*x*y-sqrt(sqr(x)+4))/abs(sqr(x)+6)) - sqr(a)
#include <iostream>
int main()
{
setlocale (LC_ALL,"Russian");
int size;
std::cout <<"Введите кол-во эл. в массиве\n";
std::cin >> size;
int *a = new int[size], *b = new int[size];
std::cout <<"Введите эл. массива A\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> a[i];
}
std::cout <<"Введите эл. массива B\n";
for (int i=0; i<size; i++)
{
std::cout <<(i+1) <<") ";
std::cin >> b[i];
}
std::cout <<"Сумма эл. массива\n";
for (int i=0; i<size; i++)
std::cout <<(i+1) <<") " <<a[i]+b[i] <<std::endl;
delete [] a;
delete [] b;
return 0;
}