Помогите решить задачу в паскале

[Bedaaaa]

Даны цифры двух десятичных целых чисел: трехзначного а3а2а1 и двузначного b2b1 где а1 и b1— число единиц, а2 и b2— число десятков, а3 — число сотен. Получить цифры числа, равного сумме заданных чисел (известно, что это число трехзначное). Числа-слагаемые и число-результат не определять; условный оператор не использовать.

[newerow1989]

Без примера мне трудно разобраться (запутался)!

[Slym]

этаж школьный столбик, ну школота пошла...

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 a1,a2,a3:integer;
 b1,b2:integer;
 c1,c2,c3,c4,c:integer;
begin
  a1:=9;a2:=9;a3:=9;
  b1:=9;b2:=9;

  c:=a1+b1;
  c1:=c mod 10;
  c:=c div 10;

  c:=a2+b2+c;
  c2:=c mod 10;
  c:=c div 10;

  c:=a3+c;
  c3:=c mod 10;
  c:=c div 10;

  c4:=c;

  writeln(c4,c3,c2,c1);
  readln;
end.