На паскале
---
uses crt;
var a,b,max: integer;
begin
writeln('Вводите последовательность. Окончание последовательности - 0.');
readln(a);
max:=a;
while a<>0 do begin
if (a>max) then max:=a;
readln(a);
end;
writeln('Наибольшее число последовательности: ',max);
<span>end.</span>
Var a : integer;
begin
a:=random(98)+2 ;
write(a)
end.
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
Пердык пук пук пук пук пукпупкпупк пукпу кпук
var
a, b: integer;
res: real;
begin
write('Число a:');
readln(a);
write('Число b:');
readln(b);
res :=(a+b)/(a-b);
writeln('Результат:', res:2:3);
end.