Практична робота "Їдальня"

Практична робота «Їдальня»

1. Відкрийте Lazarus.
2. Створіть нову форму за зразком.

3. Запрограмуйте кнопку Видати чек

procedure TForm1.Button1Click(Sender: TObject);

var cina,suma:real;

    chek:string;

begin

suma:=0;

if CheckBox1.Checked=true then  begin cina:=5.60; suma:=suma+cina; еnd;

(аналогічно для інших компонентів)

 chek:=FloatToStr(suma)+' грн.';

Memo1.Lines.Add(chek);

end;