Составить программу находящую площадь и периметр квадрата по введенным с клавиатуры значениям его стороны

Var
    num: real;
begin 
    write('Введите сторону квадрата: '); 
    read(num); 
    writeln; 
    writeln('Периметр квадрата (P): ', num * 4); 
    writeln('Площадь квадрата (S): ', sqr(num));
end.

program massiv;

var b:array[1..100]of integer;

r,n,m,i,p,k,a:integer;

begin

randomize;writeln ('a=');readln(a);

writeln('n=');readln(n);

for i:=1 to n do begin

b[i]:=random(50)-25;

writeln('a[',i,']=');

if b[i]>0 then begin r:=r+b[i];p:=r*2;

if b[i]>a then k:=k+1;

if ((b[i]<a)and(b[i]>0)) then m:=m+1;

end;end;writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.

1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4

2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132