program Przyklad1;

uses Crt;

var i: integer;

procedure Usmiechy;

begin

for i := 1 to 20 do Write(':-)');

end;

begin

ClrScr;

GotoXY(10,12);

Usmiechy;

Readln;

end.

program Przyklad3;

uses Crt;

var i:integer;

procedure Usmiechy;

var k:integer;

begin

ClrScr;

Readln(k);

ClrScr;

GotoXY(10,12);

if k>0 then for i:=1 to 20 do Write(':-)')

else for i:=1 to 20 do Write(':-(');

end;

begin

Usmiechy;

Readln;

end.

program Przyklad4;

uses Crt;

var i,n:integer;

procedure Usmiechy(m:integer);

var k:integer;

begin

ClrScr;

Writeln ('usmiech - liczba dodatnia, smutek-liczba niedodatnia');

Readln(k);

ClrScr;

GotoXY(12,24);

if k>0 then for i:=1 to m do Write(':-)')

else for i:=1 to m do Write(':-(');

end;

begin

ClrScr;

Writeln('Podaj liczbe usmiechow lub smutkow');

Readln(n);

Usmiechy(n);

Readln;

end.

program Test1;

uses Crt;

var a,b:integer;

procedure Wartosci(x, y: integer);

begin

x:= x+1;

y:= y-1;

Writeln('x = ',x);

Writeln('y = ',y);

end;

begin;

ClrScr;

Readln(a,b);

Wartosci(a,b);

Writeln('a = ',a);

Writeln('b = ',b);

end.

program Miniszyfr;

uses Crt;

const n = 20;

var dlugosc: byte;

napis: string[n];

i:integer;

begin

ClrScr;

Writeln('wpisz wyraz');

Readln(napis);

dlugosc := Length(napis);

for i := dlugosc downto 1 do Write(napis[i]);

Readln;

end.

program tablica;

const n=7;

var a:array [1..n] of integer;

i:integer;

Procedure czytaj;

begin

for i:=1 to n do readln(a[i]);

end;

begin

czytaj;

readln;

end.

---