program z8;
uses crt;
var
i,k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
writeln('Для завершения последовательности нажмите ноль');
while i>0 do begin
read(i);
Если сообщение "Десанта не будет!", то высадка десанта будет через 142 часа, точнее через 5 дней и 12 часов.
Что? Какой такой робот ? Пиши подробнее)
Program zadanie;
Var S,i:integer;
Begin
for i:=1 to 19 do
if 1 mod 2=1 then S:=S+i;
Writeln('Сумма=',S);
End.