4) Изучи фрагмент программного кода. В какой строке строковые данные переводятся в целые числа? *
1. procedure TForml.Button1Click(Sender: TObject);
2. var a:integer;
3. begin
4. а:=StrToInt(Edit1.Text);
5. if (a=8) then
6. showmessage('Привет!)
7. else
8. showmessage Неверно');
9. end;
4. а:=StrToInt(Edit1.Text);
Объяснение: