uses crt;
var i, s, k: integer;
begin 
clrscr;
s:=0;
i:=0;
while (s < 50) and (i < 5) do 
begin
write ('Введите число: ');
readln (k);
i:=i+1;
s:=s+k;
end;
end.

Введите число: 10
Введите число: 20
Введите число: 30

[Процесс завершен]

Введите число: 51

[Процесс завершен]