ответ: var
x: integer;
begin
memo1.clear;
x: =0;
repeat
x: =x+2;
memo1.lines.add(inttostr(x));
until x=100;
end;
объяснение:
