Var
p:real;
k:integer;
begin
Write('Грузоподъемность судна: '); Read(p);
Write('Количество судов: '); Read(k);
Writeln('Грузоподъемность флотилии составит ',p*k)
end.
<u>Пример</u>
Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.