procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.
Протокол передачи данных, TCP/IP
Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.
Надсистемой Земля явл.для атмосферы Земли
Надсистема для Земли:Солнечная система