Т=а, а=б б=т
думаю так тоде
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
#include <iostream>
using namespace std;
int main()
{
int n,m,p;
cin>>n;
int n1=n/100;
int n2=(n/10)%10;
int n3=n%10;
if (n1>n2)
if (n1>n3) {m=n1; p=1;} else {m=n3; p=3;}
else
if (n2>n3) {m=n2; p=2;} else {m=n3; p=3;}
cout<<"max="<<m<<", poz= "<<p<<endl;
system("pause");
}
Вот.
program pr;
var s,k,a,i,sr:integer;
begin
s:=0;
k:=100;
a:=100;
for i:=a downto 11 do begin
s:=s+a;
k:=k-1;
a:=a-1;
end;
sr:=sqr(s);
writeln(sr,' ',k);
end.