Программирование

Program +; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a+b;
writeln('Summa chisel=',c);
readln;
end.

Program -; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a-b;
writeln('raznost chisel=',c);
readln;
end.

Program *; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a*b;
writeln('proizvedenie chisel=',c);
readln;
end.

Program /; 
var a,b,c:byte;
begin
write('vvedite 2 chisla');
readln(a);
readln(b);
c:=a/b;
writeln('chastnoe chisel=',c);
readln;
end.

Домашняя работа

program my;
var: x,y,t:integer;
begin
WriteLn ('Vvedite chislo');
ReadLn (x);
ReadLn (y);
ReadLn (t);
b:=x;
x:=y;
y:=t;
writeLn ('Obmen znacheniy');
ReadLn;
end.