Запишите с блок-схем пословицу.
Взялся за гуж, не говори, что не дюж.
CРОЧНО

албания- тирана

бельгия- брюссель

венгрия- будапешт

греция- афины

лихтештейт- вадуц

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

чесно говоря не уверенна что понимаю

найти первое предложение

пока есть найденное предложение

  перевести его

  записать перевод

  найти следущее предложение

конец цикла

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

если paskal abc, то выделенное можно не писать