FPS, programos kurimas naudojant real, ne integer.

Sveiki moksleiviai, studentai, iškilo tokia problema. Jeigu galite skurkite elementare programa, kurios sąlyga a) dviejų skaičių vidurkiui rasti. Naudokite real, nes skaičiai bus su kableliu. Suprasčiau pats padaryčiau, bet programų kūrimo sritį esu bejėgis. Manau neturėtu būti sunku, nes dauguma esate studentai, dar ne tokias programas kuriate. Dėkoju iš anksto.

Nesame studentai. Cia programavimo pagrindai kurie yra 9-10 klasei.

program Vidurkis;
var a, b, vid : real;
begin
WriteLn('įveskite pirmąjį skaičių');
Readln(a);
WriteLn('įveskite antrąjį skaičių');
Readln(b);
vid := (a + b) / 2;
WriteLn('skaiciu vidurkis yra ', vid :6:2);
Readln;
end.