На паскале точно все запятые там и ; не помню но как-то так вот.
var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.
Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.
+графическая или изобразительная
+звуковая
<span>+числовая </span>
<span>+видеоинформация </span>
I = K · i
i (информационный вес одного символа) = I / K
i = 350 · 1024 · 8 / 1280 · 320 = 7 бит
N = 2i
N = 27
N = 128 цветов
Var a,n: integer; s:longint;
begin
s:=0;
n:=0;
readln(a);
while a<>0 do begin
n:=n +1;
if (a mod 2=0) and (a>0) and (a<=256) then s:=s+a;
readln(a);
end;
writeln(n);
writeln(s)
end.