Это технология управления и обмена информацией между программным интерфейсом других приложений.
uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
Var
A: array [1..4, 1..5] of real;
i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
A[i, j] := random*2-1;
write(A[i, j]:6:2, ' ');
if A[i, j] > 0 then z := z + 1;
end;
writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.