Если я правильно посчитал, в предложении 44 символа, unicode имеет вес символа 2 байта, общий объем строки - 44*2=88 байт
Скачай photomath, введи туда этот пример (или любой другой) от тебе выдаст ответ, объяснит его и даже если это возможно график построит.
Var
i: integer;
ar: array[1..3]of integer;
procedure PS(a: integer);
var
P: Integer;
S: Real;
begin
P := 3 * a;
S := sqrt(3) / 4 * sqr(a);
writeln(P, ' ', S:0:6);
end;
begin
readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>