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

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

  • Program Kwan78;
    var a: real;
      begin
      writeln('*** Alphaues is thinking... ***');
      writeln('***          OK!            ***');
      writeln();
      write('Введите длину стороны квадрата ');
      readln(a);
      writeln('Площадь квадрата равна ',a*a);
    end.

  • writeln('Некорректные данные');

  • var a,S:integer;

    end.

  • writeln('Введите сторону квадрата');

    writeln('Площадь квадрата равна ',S);

    begin

    if a>0 then

    readln(a);

    S:=S*a*a

    S:=1;

    else