testapp.sb

liczba := 5;
tekst := "Witaj";

tekst := concatenate(tekst, " swiecie");

print(tekst);

tekst := concatenate(tekst, " Polska gola");

print(tekst);

while liczba < 10 and (true and not false) do
begin
  liczba := liczba + 1;
  print("Petla")
end;

print("Po petli");


if (true and (true and true)) then print("Prawda");

if length("1234") = 4 then print("Test length - sukces");

if position("Ala ma kota"," kot") = 6 then print("Test position - sukces");

testowykot := "Patryk";
print("Substring kota Patryk to:");
print(substring(testowykot, 3,3));


print("Podaj 5 na wejsciu: ");

if readint = 5 then print("Gratulacje jest piona!") else
begin
    print("Oj nie dostalem 5 wiec wychodze");
    exit
end;

if "Ala" == "Ala" then print("Takie same");
if "Ala" == "Alaa" then print("Takie same") else print("Rozne");

if false then print("True") else
begin
  print("False");
  print("Drugi skomplikowany print fałsz")
end;

print("Podaj swoje imie: ");
imie := readstr;

print( concatenate( "Koniec na dzis ", imie ) );

print("Żegnam się błędem");
x := "Ala";
if liczba == x then print("To ciekawe...")