program p1;
uses crt;
begin
  clrscr;
   gotoxy(10,10);write('Witaj!');
   readkey;
end.
 

program p2;
 uses crt;
 var x, y, su: integer;
 begin
     clrscr;
     gotoxy(10,5);write('x = ');read(x);
     gotoxy(10,6);write('y = ');read(y);
     su:= x+y;
     gotoxy(10,7);write('x + y = ',su);
 end.
 
 
 program p3;
 uses crt;
 var x: integer;
 begin
     clrscr;
     writeln;
     write('Podaj liczbe x = '); read(x);
     if x>0 then writeln('Liczba dodatnia') else  
     if x = 0 then writeln('liczba zero')
     else writeln('liczba ujemna');
     repeat until keypressed;
 end.
 
 

program p4; 
 uses crt; 
 var n:integer; 
 begin 
    clrscr; 
     for n:=1 to 10 do write(n,' '); 
    readkey; 
 end. 
 

 program p5; 
 uses crt; 
 var n:integer; 
 begin 
    clrscr; 
    gotoxy(10,10); 
     for n:=20 downto 10 do write(n,' '); 
    readkey; 
 end. 

  
 program p5_1; 
 uses crt; 
 var n:integer; 
 begin 
    clrscr; 
    gotoxy(10,10); 
 for n:=2 to 8 do write('TP  '); 
    readkey; 
 end. 

   
 program p6; 
 uses crt; 
 var n, su: integer; 
 begin 
    clrscr; 
   su:=0; 
   for n:=1 to 10 do 
     begin 

         su:=su+n; 
    end; 
    writeln('n = ',n); 
    writeln('su = ',su); 
    readkey; 
 end.