Algoritma blokshēma

Programmas kods:

program rombs;
uses crt;
var
garums :integer;
dgarums :integer;
atbilde :char;
laukums :real;

procedure rlaukums(a,d:integer; var S:real);
var p:real;
begin
p:=(2*a+d)/2;{izrekina pusperimetru}
S:=sqrt(p*(p-a)*(p-a)*(p-d))*2;{pec herona formulas aprekina tristura laukumu, reizinot ar divi iegust romba laukumu}
end;

begin
repeat...…