program dom_epilogiis;
var
athr,arifm:real;
plithos:integer;
begin
writeln('dose to arifmo');
readln(arifm);
athr:=0;
plithos:=1;
While arifm<>0 do
begin
athr:=athr+arifm;
writeln('DOSE TO ARTIFMO');
readln(arifm);
plithos:=plithos+1;
end;
writeln('to afrisma einai ',athr:8:2);
writeln('to plifos einai ',plithos);
end.

program askisi_7_sel_97;
var
ilk1,ilk2,diaf:integer;
onoma1,onoma2:string[15];
begin
writeln('dose to onoma sou :');
readln(onoma1);
writeln('dose tin ilikia sou :');
readln(ilk1);
writeln('dose to onoma sou :');
read(onoma2);
writeln('dose tin ilikia sou :');
read(ilk2);
if ilk1>ilk2
then
writeln('Dedomena :',ilk1,' ',ilk2)
else
writeln('Dedomena :',ilk2,' ',ilk1);
writeln('Apotelesmata:');
if ilk1>ilk2
then
begin
writeln('O ',onoma1,' einai ',ilk1,' eton');
writeln('O ',onoma2,' einai ',ilk2,' eton');
end
else
begin
writeln('O ',onoma2,' einai ',ilk2,' eton');
writeln('O ',onoma1,' einai ',ilk1,' eton');
end;
if ilk1=ilk2
then
writeln('O ',onoma1,' kai O ',onoma2,' exoun idia ilikia')
else
begin

if ilk1>ilk2
then
begin
diaf:=ilk1-ilk2;
writeln('O ',onoma1,' einai ',diaf,' eti megaliteros apo to ',onoma2)
end
else
begin
diaf:=ilk2-ilk1;
writeln('O ',onoma2,' einai ',diaf,' eti megaliteros apo to ',onoma1);
end
end;
end.

program sel_97_ask_6;
var
arf1,arf2,apot:real;
kodp:integer;
begin
Writeln('1 Prosfesi');
Writeln('2 Afairesi');
Writeln('3 Polaplasiasmos');
Writeln('4 Dieresi');
Writeln('Dose to kodiko tis pra3is');
Readln(kodp);
Writeln('Dose ton proto ari8mo');
Readln(arf1);
Writeln('Dose ton deutero ari8mo');
Readln(arf2);
case kodp of
1:begin
apot:=arf1+arf2;
writeln('Diale3es prosfesi to apotelesma einai ',apot:8:2);
End;
2:begin
apot:=arf1-arf2;
writeln('Diale3es aferesi to apotelesma einai ',apot:8:2);
End;
3:Begin
apot:=arf1*arf2;
writeln('Diale3es polaplasiasmo to apotelesma einai ',apot:8:2);
End;
4:begin
If (arf1>0)and(arf2>0)
then
Begin
apot:=arf1/arf2;
Writeln('Diale3es dieresi to apotelesma einai ',apot:8:2);
End
else
Writeln('Dieresi me 0 den ginete toublo');
End
End
End.