X=3 ; WYNIK=100 ; if (x>10) WYNIK++ ; else WYNIK=0 ;  

spowoduje zapisanie w zmiennej WYNIK wartości

  Procedure TEST(var A, B: integer); var Pom: integer; begin Pom := A; A := B; B := Pom; end;  

var WYNIKI : array[a..f, 1..3] of byte;

Liczba elementów, jakie można umieścić w tablicy WYNIKI to:

"Nowoczesny system plików, który oferuje wysoką wydajność, bezpieczeństwo, niezawodność oraz zaawansowane opcje, które nie występują w żadnej wersji systemu FAT. Na przykład, dzięki standardowemu rejestrowaniu transakcji oraz metodom odzyskiwania danych, system ten zapewnia spójność woluminów. W sytuacji awarii, system korzysta z pliku dziennika oraz informacji kontrolnych, aby przywrócić spójność systemu plików."

"Jest to niepozorny program, często rozprowadzany za pomocą technologii ActiveX. Zwykle oferuje dostęp do bezpłatnej pornografii, gier lub programów umożliwiających łamanie zabezpieczeń komercyjnego oprogramowania. Po jego zainstalowaniu, pozwala wykorzystać twoje urządzenie dial-up do połączenia się z określoną usługą, zazwyczaj przez bardzo kosztowny numer dostępu. Niektóre informują o wysokich kosztach połączenia, co jest wymagane przez lokalne prawo w niektórych krajach, lecz wiele z nich po prostu wyświetla przycisk uruchamiający połączenie, nie informując użytkownika o tym, co dzieje się w tle tej czynności."

Dwa komputery funkcjonują w sieci lokalnej. Posiadają skonfigurowane protokoły TCP/IP. Jednemu przypisano adres IP 192.168.1.1, a drugiemu - 192.168.2.1. Komputery „widzą się” w otoczeniu sieciowym, jednak próba nawiązania połączenia za pomocą protokołu TCP/IP kończy się niepowodzeniem, na przykład wynik komendy ping jest negatywny.

  var i,j,k:integer; begin ... k:=15; i:=5; j:=i+7; while (k < j) do j:=j-k; ... ...