Anfängerfrage: Verknüpfungen

[derseitzer]

ich würde gerne fragen, ob es eine Möglichkeit gibt, das hier:
if a=1 then
begin
b:=2;
c:=3;
end;

mit weniger Zeilen zu schreiben..
das hier zum Beispiel ist leider nicht möglich:

if a=1 then
b:=2 and c:=3;

Hintergrund: ich muss diesen oberen code sehr oft implementieren und die ganzen "begins" und "ends" sind mir von der Übersicht her ein zu großer Nachteil..