С названием предмета именем и фамилией,классом
Program Z1;
Var a,b:integer;
Begin
Readln (a);
If ((a>5) or (a<=1)) then a:=a*2;
If (1writeln (a);
End.
Текст, число, формула. А 2 я не знаю.
Var
n:integer;
begin
Write('n = '); Read(n);
Writeln(n div 100+(n div 10) mod 10+n mod 10)
end.
Пояснения.
n div 100 дает первую цифру: результат деления нацело числа на 100.
(n div 10) mod 10 дает вторую цифру: вычисляется результат деления нацело числа на 10 и от него берется остаток деления на 10.
n mod 10 дает третью цифру: остаток целочисленного деления числа на 10.