//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.