Kb = 26
b = kb * 1024
print('В', kb, 'килобайтах -', b, 'байт')
напишите, что выведет на экран программа

почитай тут 

2000 знаков (но точно не уверен) 

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.