6 sayıyı toplayan pascal programı program Recep4;
var say1:integer;
say2:integer;
say3:integer;
say4:integer;
say5:integer;
say6:integer;
say:integer;
begin
write('1.gir');
readln(say1);
write('2.gir');
readln(say2);
write('3.gir');
readln(say3);
write('4.gir');
readln(say4);
write('5.gir');
readln(say5);
write('6.gir');
readln(say6);
say:=say1+say2+say3+say4+say5+say6;
writeln('sonuc',say);
readln;
end.
var say1:integer;
say2:integer;
say3:integer;
say4:integer;
say5:integer;
say6:integer;
say:integer;
begin
write('1.gir');
readln(say1);
write('2.gir');
readln(say2);
write('3.gir');
readln(say3);
write('4.gir');
readln(say4);
write('5.gir');
readln(say5);
write('6.gir');
readln(say6);
say:=say1+say2+say3+say4+say5+say6;
writeln('sonuc',say);
readln;
end.
