Разобрать программу по строкам. с клавиатуры вводится число 519. в ответе написать результат выполнения программы (что будет выведено на экран)
 
 
program a10;
var k, r, d: integer;
begin
read(k);
if k mod 3=0 then
begin
d: =d+7;
k: =k-d*2;
writeln(k: 5, d: 5);
end
else
writeln(d: 5);
d: =d+4;
writeln(k: 5, r: 5);
readln
end.

 505    7                                                                                                                            

 505    0

Объяснение:

519 mod 3 = 0 значит:

d=7

k=519-7*2=505

вывод:  505    7 (на вывод каждого значения отводится 5 символов)

else не выполняется

r не изменялся и в принципе выведет 0

вывод:  505    0 (на вывод каждого значения отводится 5 символов)

Мой ответ: 505

Объяснение:

Я ходил 2 года на IT, вроде так получается