Вмассиве хранится информация о стоимости товаров, введенной с клавиатуры. составь программу, которая определяет стоимость самого дорогого товара и выводит ее на экран.

Program znanija_com; //знания.ком
var
a:array [1..10] of integer;
b,c:integer;
Begin
for b:=1 to 10 do begin
read(a[b]);
end;
for b:=1 to 10 do begin
if a[b]>c then c:=a[b];
end;
writeln('Самый дорогой товар имеет цену: ',c);
End.