{ stosuj wcięcia, i ładnie "układaj kod", dzięki temu będzie większa czytelność kodu  ;) }
uses crt;
var
 a,b,c:integer;

begin
 clrscr;
 randomize;

 repeat
  a:=random(40)+1;
  b:=random(40)+1;
  writeln('Wylosowane liczby to: a= ', a, ' b= ', b,' wpisz trzecią liczbę');
  readln(c);
 until (a+b+c<20);
end.