При автоматическом переводе могут возникнуть много проблем
в зависимости от контекста слова могут иметь разное значениеперевод пословиц, поговорок и прочих стандартных словосочетаний может не существовать на другом языке или может быть передан не верноотрицательные предложения могут перейти в положительныеигра слов часто непереводиманедостаток информации одного текста не может быть восполнен. Например в английском у глаголов нет родов, а в русском естьдругая причина потери смыслаэлектронный переводчик может не знать, как переводится слово или фраза, или не иметь всех вариантов перевода
Это на 1ое
Program z1;
var a,b,c,max:integer;
begin
writeln(Введите 3 целых числа);
readln(a,b,c);
if agt;b then max:=a
else
if bgt;c then max:=b
else max:=c;
writeln(Наибольшее число = ,max);
end.
Это на 2ое
Program z2;
var a, b, c, d, e, max:integer; //задаем переменные целого типа
begin
write( введите первое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число ); // вводим с клавиатуры 2-ое число
read(b);
write( введите третье число ); // вводим с клавиатуры третье число
read(c);
write( введите четвертое число ); // вводим с клавиатуры 4-ое число
read(d);
write( введите 5-ое число ); // вводим с клавиатуры 5-ое число
read(e);
if (agt;b)and(agt;c)and(agt;d)and(agt;e) then max:=a;
if (bgt;a)and(bgt;c)and(bgt;d)and(bgt;e) then max:=b;
if (cgt;b)and(cgt;a)and(cgt;d)and(cgt;e) then max:=c;
if (dgt;b)and(dgt;c)and(dgt;a)and(dgt;e) then max:=d;
if (egt;b)and(egt;c)and(egt;d)and(egt;a) then max:=e;
write( наибольшее среди пяти чисел = , max); // выводим ответ
end.