Азбука морзе, флажков азбука
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Program n_1;
var A, x: real;
begin
read(A);
if (A>9) then x:=A+8 else x:=A-8;
writeln(x);
end.
Программа позволяющая создавать и редактировать двумерные изображения с помощью компьютера