Створіть проект для обчислення суми n чисел, перше з яких дорівнює x, а кожне наступне на 5 більше від попереднього.

Var
a,b,c: integer;
begin
readln(a);
c:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if x mod 2=0 then 
c:=c+1;
end;
writeln(c)
end.

Разница лишь в том, что CD (Compact Disk) - это старый стандарт, а DVD (Digital Video Disk) - это новый. Также DVD имеет больше места, чем CD, потому что изначально (как видно в названии) разрабатывался для хранения цифрового видео. Также не все приводы поддерживают DVD технических отличий от CD. Сходство во внешности: они оба выглядят как зеркальный диск.

Смотрите в строчке под номером 4 
z:=-1; z становится отрицательным
Потом его пустили по циклу, в первом круге цикла этот же z (z:=z;) становится с противоположным знаком(z:=-(-1);) Тоесть сначала выполняется действие добавления(+), в следующем кругу уже положительному z меняют знак на противоположный, и z опять у нас
с "-" и так k раз.

Вроде понятно обьяснил, ну если что обращайтесь.