вторник, 12 мая 2015 г.

Программирование на языке Turbo Pascal

Program key;
var: x,y,t: intenger;
begin
writeln ( ' Vvedite 3 chisla');
readln (x);
readln (y);
readln (t);
t:=x;
x:=y;
y:=t;
writeln ( ' Obmen znacheniy velichin ' );
readln;
end.


x=-11; y=4