Блок-схема

[Zatoichy]

Turbo Pascal:

Program p1;

uses CRT;

var

s1,s2:string;

x1,x2,k:integer;

begin

CLRSCR;

write('ievadiet virkni s1: ');

readln(s1);

write('ievadiet virkni s2: ');

readln(s2);

for k:=1 to length (s1) do

if (s1[k] in ['A'..'Z']) or (s1[k] in ['a'..'z']) then inc(x1);

for k:=1 to length (s2) do

if (s2[k] in ['A'..'Z']) or (s2[k] in ['a'..'z']) then inc(x2);

if x1=x2 then writeln('Virknu s1 un s2 latinu burtu skaits ir vienads');

if x1>x2 then writeln('Virkne s1 ir vairak latinu burtu');

if x2>x1 then writeln('Virkne s2 ir vairak latinu burtu');

readln;

end.

Может кто помочь, как рисовать блок-схему? =(

[NatM]

@Zatoichy, воспользуйтесь программой вот здесь даются все необходимые ссылки