//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
  Println('Периметр=',ReadInteger+ReadInteger+ReadInteger);
end.

2)
begin
  var r:=ReadInteger('r=');
  Println('Площадь=',3.1415*sqr(r)); Println('Длина окружности=',2*3.1415*r);
end.

3)
uses FormsABC;
var a,b,res:realfield;
procedure plus:= res.Value := a.Value + b.Value;
procedure min:= res.Value := a.Value - b.Value;
procedure umn:= res.Value := a.Value * b.Value;
procedure delit:= res.Value := a.Value / b.Value;
begin
  MainForm.SetSize(250,175);
  a := new RealField('a:');
  b := new RealField('b:');
  LineBreak;
  EmptySpace(40);
  var p:=new Button('+'); p.Width:=25; p.Click+= plus;
  var m:=new Button('-'); m.Width:=25; m.Click+= min;
  var u:=new Button('*'); u.Width:=25; u.Click+= umn;
  var d:=new Button('/'); d.Width:=25; d.Click+= delit;
  res := new RealField('Результат',220);
end.