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);
readkey;
end.