Bước 1. Nháy đúp chuột vào biểu tượng  trên màn hình để khởi động phần mềm Scratch

Bước 2. Nháy chuột vào biểu tượng quả địa cầu  ở góc trên trái màn hình và chọn ngôn ngữ.

Bước 3. Nháy chuột chọn Tập tin và chọn lệnh Mở từ máy tính. Mở tệp chương trình trò chơi có tên là “Trochoi”.

Bước 4. Nháy chuột vào khối lệnh hoặc nút lệnh cờ xanh để chạy chương trình

Bước 5. Nháy chuột vào nút  để dừng chương trình

Bước 6. Em có thể nháy chuột vào nút lệnh cờ xanh để tiếp tục lượt chơi khác

Bước 7. Nháy chuột vào nút    ở góc bên trên phải của màn hình Scratch để thoát khỏi phần mềm.

Bạn ơi, Pascal ko hỗ trợ di chuyển bằng chuột máy tính(trừ khi dùng Graph, nhưng mình đoán 99% các mod trên đây ko ai biết dùng Graph đâu)

Nếu dùng WASD thì có thể, nhưng nếu vậy thì bài này nên đưa lên bài lớp 11 thì hơn

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

uses crt;

var a:array[1..100]of integer;

i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln(s);

readln;

end.

11 A

12 B

13 C

11.A

12.B

13.C

 Mình cũng như cậu

trò chơi kéo co 

trong trò chơi , người chơi dugf lực để kéo sợi dây về phía đội mình . đội nào kéo được nhiều dây về đội mình là đội thắng 

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do 

  s:=s*(i/n);

writeln(s:4:2);

readln;

end.