Как это сложно голова болит не понял извини прости не могу помочь
<span>var a,s:integer;
begin
write('a = ');
readln(a);
s:=(a div 10)+(a mod 10);
writeln('s = ',s);
end<span>.
Пример:
</span><span>a = 25
s = 7</span></span>
Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
Program Question;
var
nameF, nameS, rels :string;
Begin
Write('Введите первое имя: ');
Readln(nameF);
Write('Введите второе имя: ');
Readln(nameS);
Write('Введите отношения: ');
Readln(rels);
Writeln(nameF, '+', nameS, '=', rels);
End