var a, b, c, x: integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
if a > b then
x:=a
else
x:=b;
if x > c then
writeln('Наибольшее число: ', x)
else
writeln('Наибольшее число: ', c);
end.
1.Взять ведро налить воды.
2.Вылить воду на огонь.
3.не Пугать животных
1. Файл – это именованный набор однотипных элементов данных, называемых записями
2. Тактовая частота процессора – это число двоичных операций, совершаемых процессором в единицу времени
<h3>PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)
.Aggregate(BigInteger(1),(a,b)->a*b).Println
end.
<h2>Пример</h2>
10057531504895395788703629698793031096713606951075840000000000000
<h3>Файл data.txt дан во вложении</h3>