<span><span>Program Zvezda;
Uses GraphABC;
begin
SetBrushColor(clred);
Line(290, 111, 240, 190);
Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
Line(290, 289, 369, 318);
Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
Line(410, 190, 340, 190);
Line(340, 190, 289, 111);
Line(289, 113, 289, 289);
Line(242, 249, 341, 190);
Line(340, 249, 242, 190);
Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
Readln;
Closewindow;
End.</span></span>
A = в Edit1
b = в Edit2
Результат в Label1
var
a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
Label1.Caption := FloatToStr((a + b) / 2);
end;
#include <iostream>
using namespace std;
int main()
{
int num,temp,k;
temp=0;
k=0;
while (true)
{
cin >> num;
k=k+1;
if (temp == num) { break;}
temp=num;
}
cout<<k<<endl;
}
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.