Program n1;
var x,y: real;
begin
read(x);
if x>=3 then y:=x*x+5 else y:=x-8;
writeln ("y=",y)
end.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.
возможно
здоровое питание - ето жизнь
жить - здорово
ведение здорового образа жизни - +года молодости
Ответ:локальная -переменная объявленная в рамках блока кода
Объяснение:1-й вопрос без ответа