Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
На картинке: стакан с напитком и эскимо на палочке с глазурью
Program cb;
var
n, i: integer;
begin
write('n = ');
readln(n);
for i := 1 to n do
writeln(i * i * i);
end.
Командная строка. это строка заведует управлениями всех программ