Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.
Чтобы обмениваться сообщениями на большом растоянии (писменныси и быстро)
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Var i, k, n, sum: Integer;
a: Array[1..1000000] of Integer;
begin
ReadLn(n, k);
for i:=1 to n do a[i]:=i;
sum:=0;
for i:=1 to n do
if a[i] mod k = 0 then
sum:=sum+a[i];
WriteLn(sum);
end.
На манипуляторе нажимается кнопка, на которую реагирует компьютер и производит определенное действие.