Начало. Тексты программ

HelloWorld

Код на Pascal:

begin
  writeln('Привет, мир!');
end.

Вычисление площади круга

Код на Pascal:

const Pi = 3.1415;

var 
  r: real; // радиус круга
  S: real; // площадь круга
  
begin
  write('Введите радиус круга: ');
  readln(r);
  S := Pi*r*r;
  writeln('Площадь круга равна ',S);
end.

Вычисление A⁸

var r: real;

begin
  write('Введите r: ');
  readln(r);
  var r2,r4,r8: real; // вспомогательные переменные
  r2 := r * r;
  r4 := r2 * r2;
  r8 := r4 * r4;
  writeln(r,' в степени 8 = ',r8);
end.

Обмен значений двух переменных с использованием третьей

Код на PascalABC.NET:

var x,y: real;

begin
  write('Введите x,y: ');
  readln(x,y);
  var v: real; // вспомогательная переменная
  v := x;
  x := y;
  y := v;
  writeln('Новые значения x,y: ',x,' ',y);
end.