Paraugprogrammas, programmējot ar Pascal

1. Uzdevums: Izvadīt divu skaitļu summu!

program pirmaa;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('ievadiet skaitli a = '); {notiira ekraanu}
read(a);
write('ievadiet skaitli b = ');
read(b);
writeln('b=',b);
writeln('a=',a);
c:=a+b;
writeln('c=',c);

readkey;
end.

2. Uzdevums: Izvadīt divu skaitļu summu, bet šiem skaitļiem jābūt skaitļiem ar komatu. Norādīt, cik zīmes atradīsies pirms un pēc komata.

program pirmaa;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('ievadiet skaitli a = ');
read(a);
write('ievadiet skaitli b = ');
read(b);
write('b= ', b:4:3);
write('a= ', a:4:3);
c:=a+b;
writeln('c=',c);
…