скачай архиватор на русском языке и наверхней посматри и увидешь
Необязательно...............
Var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a); writeln('Слово = ',a); writeln('Количество букв: ', s); end.
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.