Постройте вертикальную линию длиной 25 из точек, используя оператор for.

uses graphabc;
var
y: integer;
begin
for y:=0 to 25 do
setpixel (10,y,clred);
end.