Напишите на языке Pascal

Var a,b,p,s: real;

begin

Readln(a);

Readln(b);

If a=b writeln('квадрат') else do begin

P:=(a+b)*2;

S:=a*b;

Writeln('прямоугольник p=',p,' s=',s)

End;

End.

Второй решать? Или сам справишься?
Upd хотя не, я не знаю, как квадратные корни записывать

1. Пусть у прямоугольника стороны равны a и b.
Объявим эти переменные — пусть это будут дробные числа:

var a, b: double;

Начинаем программу:
begin

Запросим их значения:

Write('Введите сторону a: '); {Просим ввести}
ReadLn(a); {Принимаем число и пишем его в переменную a}
Write('Введите сторону b: ');
ReadLn(b);

Если a = b, то это квадрат, иначе это просто прямоугольник.

Воспользуемся оператором if-then-else.
Справка: pascal.net.ru/if

if a = b then begin
… {Тут пишем действия для квадрата}
end
else begin
… {Тут пишем действия для прямоугольника}
end;

Периметр прямоугольника: P := 2 * (a + b);
Площадь квадрата: S = a * b;

Вывод периметра:
WriteLn('P = ', P);

Вывод площади:
WriteLn('S = ', S);

Вот и всё:

end.

Обязательно запусти эту программу и проверь ее работу, чтобы она правильно всё считала.
Блок-схему сам нарисуешь.

2. Запрашиваем ввод a, b, c.
Дальше зависит от формулы:

a) d := 2 * a - 3;
e := b - 1;
f := c * c + a * c + a * a;
g := sqrt(d) / e + sqrt(f);

Выводим g:

WriteLn('Результат: ',g);

b) d := abs(c - a); {abs — модуль числа}
e := b + sqrt(d);
f := 2 + sqrt(e);
g := 2 + sqrt(f);
h := sqrt(g);

Выводим h.

c) Таким же макаром можешь посчитать числители и знаменатели.
d := 1 - b;
e := 1 - c;
f := d / e;
И так далее. Ничего нового.