uses
CRT;
var
a: array [1..4] of char;
i: integer;
begin
i := 1;
a[1] := |; a[2] := /; a[3] := -; a[4] := /;
while (true) do
begin
ClrScr();
Write(a[i]);
if (i = 4) then
i := 1
else
inc(i);
Sleep(250);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.