Запиши верный ответ (без пробелов).

Write ('h = ', h);

Для h=25 на экране будет

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.