turbo pascal/ funckje/procedury

[mateusz.ex]

2.W zmiennych A, B, C, D. E są zapisane słowa o długości 10 znaków.
Napisz kod programu obliczający w ilu słowach na pierwszej pozycji znajduje się litera a.

[soku11]

Pesudokod:

Kod: Zaznacz cały

var integer ilosc:=0;
if(A[0]='a')
  ilosc=ilosc+1;
if(B[0]='a')
  ilosc=ilosc+1;
if(C[0]='a')
  ilosc=ilosc+1;
if(D[0]='a')
  ilosc=ilosc+1;
if(E[0]='a')
  ilosc=ilosc+1;
wyswietl(ilosc);

Pozdrawiam.