Диктор на ТБ не тільки голосом повідомляє новину, а й демонструє відповідний відеосюжет;
Друзі не тільки розповідають про захопливий відпочинок, а й показують фото або відео;
На уроці вчитель не тільки пояснює новий матеріал, а й демонструє плакати, малюнки тощо
<span>это новая строка. т.е</span>
1.
Var n,S,k:integer
Begin
Read(n);
for i:=1 to n do
Begin
Read(k);
if k mod 3 = 0 then
S:=S+k;
End;
Write(S);
End.
2. var S,k,n:integer;
begin
Read(n);
While n>=0 do
Begin
k:=n mod 10;
if k mod 2=0 then
S:=S+k;
n:=n div 10;
End;
Write (S);
End.
3. var i, a, b, c:integer;
Begin
read(a);
read(b);
read(c);
Fit i:=1 to b do
Begin
If I mod c=0 then write (i);
End;
End.
4. Var i:integer;
Begin
For i:=1 to 100 do
Writeln(i*i);
End.
var a, b, res: real;
begin
readln(a, b);
if a > b then res:= a + b
else if a < b then res:= a - b
else res:= a * b;
writeln(res);
end.