Составить блок-схему определения площади квадрата s, если известен его периметр p.

сторона квадрата а =

площадь = a² = P² / 4² = P² / 16

алгоритм линейный:

1. Начало

2. Ввод значения периметра Р

3. Расчет площади S = P² / 16

4. Вывод рассчитанной площади S

5. Конец

Var
  a,b,alpha,s:real;
begin
  writeln('Вычисление площади треугольника');
  writeln('Введите (через пробел) длины двух сторон (см) треугольника');
  readln(a,b);
  writeln('Введите величину угла (градус) между сторонами треугольника');
  readln(alpha);
  alpha:=DegToRad(alpha);
  writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.')
end.

Тестовое решение:

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
25 17
Введите величину угла (градус) между сторонами треугольника
30
Площадь треугольника: 106.25 кв.см.

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
11 16.3
Введите величину угла (градус) между сторонами треугольника
39
Площадь треугольника: 56.4185730576179 кв.см.

uses
  System.Collections.Generic;

function reverse(const s: String): String;
begin
  if Length(s) = 1 then reverse := s else
    reverse := s[Length(s)] + reverse(Copy(s, 1, Length(s) - 1));
end;

var
  lst: List<string> := new List<string>();
  s, s1: string;

begin
  writeln('Конец последовательности - пустая строка');
  while (true) do
  begin
    readln(s);
    if (s.Length = 0) then
      break
    else
      lst.Add(s);
  end;
  writeln();
  foreach s in lst do
  begin
    if ((s <> lst.Last()) and (s = reverse(s))) then
      writeln(s);
  end;
end.