Aplikacja konsolowa będzie wyglądała tak:
Kod:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, c: integer;
begin
Write('Podaj pierwsza liczbe: ');
Readln(a);
Write('Podaj drugą liczbe: ');
Readln(b);
Write('Podaj trzecią liczbę: ');
Readln(c);
Writeln('Średnia arytmetyczna liczb ' ,a,' ',b,' ',c,' wynosi: ',((a+b+c)/3):0:2);
Readln;
end.
Jeżeli chcesz zrobić na przyciskach i editach to podpinasz zmienne do nich.